home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1990-01-31 | 13.5 KB | [TEXT/MPS ] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| ZX81 Sinclair BASIC (image/sinclairBASIC)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Applause Picture (image/applausePicture)
| ext
| Unsupported |
| 1%
| dexvert
| bsdiff patch (other/bsdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| imgdiff patch (other/imgdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| MATLAB p-code (other/matlabPCode)
| ext
| Unsupported |
| 1%
| dexvert
| WSUS Patch Storage File (other/wsusPatchStorageFile)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Wed Jan 31 18:41:14 1990, modified Wed Jan 31 18:41:14 1990, creator 'MPS ', type ASCII, 11006 bytes "UAboutWindow.p" , at 0x2b7e 2667 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MPS ] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 55 41 62 6f 75 74 | 57 69 6e 64 6f 77 2e 70 |..UAbout|Window.p|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 40 01 00 00 |.TEXTMPS| ...@...|
|00000050| 00 00 00 00 00 2a fe 00 | 00 0a 6b a1 ed 28 1a a1 |.....*..|..k..(..|
|00000060| ed 28 1a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.(......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2a f8 00 00 |........|....*...|
|00000080| 75 6e 69 74 20 55 41 62 | 6f 75 74 57 69 6e 64 6f |unit UAb|outWindo|
|00000090| 77 3b 0d 7b 24 53 20 4d | 61 69 6e 7d 0d 0d 69 6e |w;.{$S M|ain}..in|
|000000a0| 74 65 72 66 61 63 65 0d | 0d 09 75 73 65 73 0d 09 |terface.|..uses..|
|000000b0| 09 51 75 69 63 6b 64 72 | 61 77 2c 20 54 6f 6f 6c |.Quickdr|aw, Tool|
|000000c0| 49 6e 74 66 2c 20 4f 53 | 55 74 69 6c 73 2c 20 0d |Intf, OS|Utils, .|
|000000d0| 09 09 55 47 6c 6f 62 61 | 6c 73 3b 0d 0d 09 63 6f |..UGloba|ls;...co|
|000000e0| 6e 73 74 0d 09 09 41 62 | 6f 75 74 52 65 66 43 6f |nst...Ab|outRefCo|
|000000f0| 6e 20 3d 20 31 32 33 34 | 3b 0d 0d 09 76 61 72 0d |n = 1234|;...var.|
|00000100| 09 09 41 62 6f 75 74 57 | 69 6e 64 6f 77 3a 20 57 |..AboutW|indow: W|
|00000110| 69 6e 64 6f 77 50 74 72 | 3b 0d 0d 09 70 72 6f 63 |indowPtr|;...proc|
|00000120| 65 64 75 72 65 20 49 6e | 69 74 41 62 6f 75 74 57 |edure In|itAboutW|
|00000130| 69 6e 64 6f 77 3b 09 09 | 09 28 2a 20 43 61 6c 6c |indow;..|.(* Call|
|00000140| 20 64 75 72 69 6e 67 20 | 52 4f 4d 20 69 6e 69 74 | during |ROM init|
|00000150| 69 61 6c 69 7a 61 74 69 | 6f 6e 73 20 2a 29 0d 09 |ializati|ons *)..|
|00000160| 70 72 6f 63 65 64 75 72 | 65 20 4f 70 65 6e 41 62 |procedur|e OpenAb|
|00000170| 6f 75 74 57 69 6e 64 6f | 77 3b 09 09 09 28 2a 20 |outWindo|w;...(* |
|00000180| 43 61 6c 6c 20 77 68 65 | 6e 20 74 68 65 20 75 73 |Call whe|n the us|
|00000190| 65 72 20 73 65 6c 65 63 | 74 73 20 22 41 62 6f 75 |er selec|ts "Abou|
|000001a0| 74 2e 2e 2e 22 20 2a 29 | 0d 09 66 75 6e 63 74 69 |t..." *)|..functi|
|000001b0| 6f 6e 20 43 6c 6f 73 65 | 49 66 41 62 6f 75 74 57 |on Close|IfAboutW|
|000001c0| 69 6e 64 6f 77 20 28 77 | 68 69 63 68 57 69 6e 64 |indow (w|hichWind|
|000001d0| 6f 77 3a 20 57 69 6e 64 | 6f 77 50 74 72 29 3a 20 |ow: Wind|owPtr): |
|000001e0| 42 6f 6f 6c 65 61 6e 3b | 20 28 2a 20 43 61 6c 6c |Boolean;| (* Call|
|000001f0| 20 69 66 20 74 68 65 20 | 75 73 65 72 20 77 61 6e | if the |user wan|
|00000200| 74 73 20 74 6f 20 63 6c | 6f 73 65 20 61 20 77 69 |ts to cl|ose a wi|
|00000210| 6e 64 6f 77 2e 20 2a 29 | 0d 09 09 09 09 09 09 09 |ndow. *)|........|
|00000220| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 28 2a 20 |........|.....(* |
|00000230| 52 65 74 75 72 6e 73 20 | 54 52 55 45 20 69 66 20 |Returns |TRUE if |
|00000240| 74 68 65 20 77 69 6e 64 | 6f 77 20 77 61 73 20 63 |the wind|ow was c|
|00000250| 6c 6f 73 65 64 20 2a 29 | 0d 0d 09 66 75 6e 63 74 |losed *)|...funct|
|00000260| 69 6f 6e 20 41 62 6f 75 | 74 45 76 65 6e 74 50 72 |ion Abou|tEventPr|
|00000270| 6f 63 20 28 74 68 65 45 | 76 65 6e 74 3a 20 45 76 |oc (theE|vent: Ev|
|00000280| 65 6e 74 52 65 63 6f 72 | 64 29 3a 20 42 6f 6f 6c |entRecor|d): Bool|
|00000290| 65 61 6e 3b 09 09 09 28 | 2a 20 43 61 6c 6c 20 65 |ean;...(|* Call e|
|000002a0| 61 63 68 20 74 69 6d 65 | 20 74 68 72 6f 75 67 68 |ach time| through|
|000002b0| 20 79 6f 75 72 20 6d 61 | 69 6e 20 65 76 65 6e 74 | your ma|in event|
|000002c0| 20 6c 6f 6f 70 2e 20 2a | 29 0d 09 09 09 09 09 09 | loop. *|).......|
|000002d0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 28 2a |........|......(*|
|000002e0| 20 52 65 74 75 72 6e 73 | 20 54 52 55 45 20 69 66 | Returns| TRUE if|
|000002f0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 77 61 73 20 | the res|ult was |
|00000300| 68 61 6e 64 6c 65 64 20 | 66 6f 72 20 79 6f 75 20 |handled |for you |
|00000310| 2a 29 0d 0d 69 6d 70 6c | 65 6d 65 6e 74 61 74 69 |*)..impl|ementati|
|00000320| 6f 6e 0d 0d 09 63 6f 6e | 73 74 0d 09 09 6b 41 62 |on...con|st...kAb|
|00000330| 6f 75 74 57 69 6e 64 6f | 77 49 44 20 3d 20 32 30 |outWindo|wID = 20|
|00000340| 30 30 3b 0d 09 09 76 53 | 63 72 6f 6c 6c 52 65 66 |00;...vS|crollRef|
|00000350| 20 3d 20 31 3b 0d 09 09 | 66 69 6e 64 42 75 74 74 | = 1;...|findButt|
|00000360| 6f 6e 52 65 66 20 3d 20 | 32 3b 0d 09 09 4c 69 6e |onRef = |2;...Lin|
|00000370| 65 53 69 7a 65 20 3d 20 | 39 3b 20 20 20 28 2a 20 |eSize = |9; (* |
|00000380| 54 68 65 20 66 6f 6e 74 | 20 73 69 7a 65 20 6f 66 |The font| size of|
|00000390| 20 74 68 65 20 61 62 6f | 75 74 20 77 69 6e 64 6f | the abo|ut windo|
|000003a0| 77 20 2a 29 0d 09 09 4c | 69 6e 65 53 70 61 63 69 |w *)...L|ineSpaci|
|000003b0| 6e 67 20 3d 20 31 33 3b | 20 28 2a 20 54 68 65 20 |ng = 13;| (* The |
|000003c0| 64 69 73 74 61 6e 63 65 | 20 62 65 74 77 65 65 6e |distance| between|
|000003d0| 20 62 61 73 65 6c 69 6e | 65 73 20 69 6e 20 74 68 | baselin|es in th|
|000003e0| 65 20 61 62 6f 75 74 20 | 77 69 6e 64 6f 77 20 2a |e about |window *|
|000003f0| 29 0d 0d 09 76 61 72 0d | 09 09 41 62 6f 75 74 54 |)...var.|..AboutT|
|00000400| 45 48 61 6e 64 6c 65 3a | 20 54 45 48 61 6e 64 6c |EHandle:| TEHandl|
|00000410| 65 3b 0d 09 09 48 61 73 | 53 74 79 6c 65 64 54 45 |e;...Has|StyledTE|
|00000420| 3a 20 42 6f 6f 6c 65 61 | 6e 3b 0d 0d 20 20 20 28 |: Boolea|n;.. (|
|00000430| 2a 20 50 72 69 76 61 74 | 65 20 72 6f 75 74 69 6e |* Privat|e routin|
|00000440| 65 73 20 2a 29 0d 09 70 | 72 6f 63 65 64 75 72 65 |es *)..p|rocedure|
|00000450| 20 43 61 6c 63 54 65 78 | 74 52 65 63 74 20 28 77 | CalcTex|tRect (w|
|00000460| 50 74 72 3a 20 57 69 6e | 64 6f 77 50 74 72 3b 20 |Ptr: Win|dowPtr; |
|00000470| 76 61 72 20 6f 75 74 6c | 69 6e 65 52 65 63 74 2c |var outl|ineRect,|
|00000480| 20 74 65 78 74 52 65 63 | 74 3a 20 52 65 63 74 29 | textRec|t: Rect)|
|00000490| 3b 0d 09 62 65 67 69 6e | 0d 09 09 77 69 74 68 20 |;..begin|...with |
|000004a0| 77 50 74 72 5e 2e 70 6f | 72 74 52 65 63 74 20 64 |wPtr^.po|rtRect d|
|000004b0| 6f 0d 09 09 09 53 65 74 | 52 65 63 74 28 6f 75 74 |o....Set|Rect(out|
|000004c0| 6c 69 6e 65 52 65 63 74 | 2c 20 6c 65 66 74 20 2b |lineRect|, left +|
|000004d0| 20 38 2c 20 74 6f 70 20 | 2b 20 38 2c 20 72 69 67 | 8, top |+ 8, rig|
|000004e0| 68 74 20 2d 20 32 34 2c | 20 62 6f 74 74 6f 6d 20 |ht - 24,| bottom |
|000004f0| 2d 20 38 29 3b 0d 09 09 | 74 65 78 74 52 65 63 74 |- 8);...|textRect|
|00000500| 20 3a 3d 20 6f 75 74 6c | 69 6e 65 52 65 63 74 3b | := outl|ineRect;|
|00000510| 0d 09 09 49 6e 73 65 74 | 52 65 63 74 28 6f 75 74 |...Inset|Rect(out|
|00000520| 6c 69 6e 65 52 65 63 74 | 2c 20 2d 32 2c 20 2d 32 |lineRect|, -2, -2|
|00000530| 29 3b 0d 09 09 77 69 74 | 68 20 74 65 78 74 52 65 |);...wit|h textRe|
|00000540| 63 74 20 64 6f 0d 09 09 | 09 62 6f 74 74 6f 6d 20 |ct do...|.bottom |
|00000550| 3a 3d 20 62 6f 74 74 6f | 6d 20 2d 20 28 28 62 6f |:= botto|m - ((bo|
|00000560| 74 74 6f 6d 20 2d 20 74 | 6f 70 29 20 6d 6f 64 20 |ttom - t|op) mod |
|00000570| 4c 69 6e 65 53 70 61 63 | 69 6e 67 29 3b 0d 09 65 |LineSpac|ing);..e|
|00000580| 6e 64 3b 20 28 2a 20 43 | 61 6c 63 54 65 78 74 52 |nd; (* C|alcTextR|
|00000590| 65 63 74 20 2a 29 0d 0d | 09 70 72 6f 63 65 64 75 |ect *)..|.procedu|
|000005a0| 72 65 20 55 70 64 61 74 | 65 41 62 6f 75 74 57 69 |re Updat|eAboutWi|
|000005b0| 6e 64 6f 77 20 28 77 50 | 74 72 3a 20 57 69 6e 64 |ndow (wP|tr: Wind|
|000005c0| 6f 77 50 74 72 29 3b 0d | 09 09 76 61 72 0d 09 09 |owPtr);.|..var...|
|000005d0| 09 6f 6c 64 50 6f 72 74 | 3a 20 47 72 61 66 50 74 |.oldPort|: GrafPt|
|000005e0| 72 3b 0d 09 09 09 6f 75 | 74 6c 69 6e 65 52 65 63 |r;....ou|tlineRec|
|000005f0| 74 2c 20 74 65 78 74 52 | 65 63 74 3a 20 52 65 63 |t, textR|ect: Rec|
|00000600| 74 3b 0d 0d 09 62 65 67 | 69 6e 0d 09 09 47 65 74 |t;...beg|in...Get|
|00000610| 50 6f 72 74 28 6f 6c 64 | 50 6f 72 74 29 3b 0d 09 |Port(old|Port);..|
|00000620| 09 53 65 74 50 6f 72 74 | 28 77 50 74 72 29 3b 0d |.SetPort|(wPtr);.|
|00000630| 09 09 42 65 67 69 6e 55 | 70 64 61 74 65 28 77 50 |..BeginU|pdate(wP|
|00000640| 74 72 29 3b 0d 09 09 45 | 72 61 73 65 52 65 63 74 |tr);...E|raseRect|
|00000650| 28 77 50 74 72 5e 2e 70 | 6f 72 74 52 65 63 74 29 |(wPtr^.p|ortRect)|
|00000660| 3b 0d 09 09 69 66 20 77 | 50 74 72 20 3d 20 41 62 |;...if w|Ptr = Ab|
|00000670| 6f 75 74 57 69 6e 64 6f | 77 20 74 68 65 6e 0d 09 |outWindo|w then..|
|00000680| 09 09 62 65 67 69 6e 0d | 09 09 09 09 43 61 6c 63 |..begin.|....Calc|
|00000690| 54 65 78 74 52 65 63 74 | 28 77 50 74 72 2c 20 6f |TextRect|(wPtr, o|
|000006a0| 75 74 6c 69 6e 65 52 65 | 63 74 2c 20 74 65 78 74 |utlineRe|ct, text|
|000006b0| 52 65 63 74 29 3b 0d 09 | 09 09 09 54 45 55 70 64 |Rect);..|...TEUpd|
|000006c0| 61 74 65 28 77 50 74 72 | 5e 2e 76 69 73 52 67 6e |ate(wPtr|^.visRgn|
|000006d0| 5e 5e 2e 72 67 6e 42 42 | 6f 78 2c 20 41 62 6f 75 |^^.rgnBB|ox, Abou|
|000006e0| 74 54 45 48 61 6e 64 6c | 65 29 3b 0d 09 09 09 09 |tTEHandl|e);.....|
|000006f0| 46 72 61 6d 65 52 65 63 | 74 28 6f 75 74 6c 69 6e |FrameRec|t(outlin|
|00000700| 65 52 65 63 74 29 3b 0d | 09 09 09 65 6e 64 3b 0d |eRect);.|...end;.|
|00000710| 09 09 44 72 61 77 43 6f | 6e 74 72 6f 6c 73 28 77 |..DrawCo|ntrols(w|
|00000720| 50 74 72 29 3b 0d 09 09 | 45 6e 64 55 70 64 61 74 |Ptr);...|EndUpdat|
|00000730| 65 28 77 50 74 72 29 3b | 0d 09 09 53 65 74 50 6f |e(wPtr);|...SetPo|
|00000740| 72 74 28 6f 6c 64 50 6f | 72 74 29 3b 0d 09 65 6e |rt(oldPo|rt);..en|
|00000750| 64 3b 20 28 2a 20 55 70 | 64 61 74 65 41 62 6f 75 |d; (* Up|dateAbou|
|00000760| 74 57 69 6e 64 6f 77 20 | 2a 29 0d 0d 0d 09 70 72 |tWindow |*)....pr|
|00000770| 6f 63 65 64 75 72 65 20 | 41 63 74 69 76 61 74 65 |ocedure |Activate|
|00000780| 41 62 6f 75 74 57 69 6e | 64 6f 77 20 28 6d 79 45 |AboutWin|dow (myE|
|00000790| 76 65 6e 74 3a 20 45 76 | 65 6e 74 52 65 63 6f 72 |vent: Ev|entRecor|
|000007a0| 64 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 77 50 74 |d);...va|r....wPt|
|000007b0| 72 3a 20 57 69 6e 64 6f | 77 50 74 72 3b 0d 0d 09 |r: Windo|wPtr;...|
|000007c0| 62 65 67 69 6e 0d 09 09 | 77 50 74 72 20 3a 3d 20 |begin...|wPtr := |
|000007d0| 57 69 6e 64 6f 77 50 74 | 72 28 6d 79 45 76 65 6e |WindowPt|r(myEven|
|000007e0| 74 2e 6d 65 73 73 61 67 | 65 29 3b 0d 28 2a 20 44 |t.messag|e);.(* D|
|000007f0| 72 61 77 47 72 6f 77 49 | 63 6f 6e 28 77 50 74 72 |rawGrowI|con(wPtr|
|00000800| 29 3b 20 2a 29 0d 09 09 | 69 66 20 77 50 74 72 20 |); *)...|if wPtr |
|00000810| 3d 20 41 62 6f 75 74 57 | 69 6e 64 6f 77 20 74 68 |= AboutW|indow th|
|00000820| 65 6e 0d 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |en....be|gin.....|
|00000830| 69 66 20 4f 44 44 28 6d | 79 45 76 65 6e 74 2e 6d |if ODD(m|yEvent.m|
|00000840| 6f 64 69 66 69 65 72 73 | 29 20 74 68 65 6e 0d 09 |odifiers|) then..|
|00000850| 09 09 09 09 54 45 41 63 | 74 69 76 61 74 65 28 41 |....TEAc|tivate(A|
|00000860| 62 6f 75 74 54 45 48 61 | 6e 64 6c 65 29 0d 09 09 |boutTEHa|ndle)...|
|00000870| 09 09 65 6c 73 65 0d 09 | 09 09 09 09 54 45 44 65 |..else..|....TEDe|
|00000880| 61 63 74 69 76 61 74 65 | 28 41 62 6f 75 74 54 45 |activate|(AboutTE|
|00000890| 48 61 6e 64 6c 65 29 3b | 0d 09 09 09 65 6e 64 3b |Handle);|....end;|
|000008a0| 0d 09 09 69 66 20 4f 44 | 44 28 6d 79 45 76 65 6e |...if OD|D(myEven|
|000008b0| 74 2e 6d 6f 64 69 66 69 | 65 72 73 29 20 74 68 65 |t.modifi|ers) the|
|000008c0| 6e 0d 09 09 09 53 65 74 | 50 6f 72 74 28 77 50 74 |n....Set|Port(wPt|
|000008d0| 72 29 3b 0d 09 65 6e 64 | 3b 20 28 2a 20 41 63 74 |r);..end|; (* Act|
|000008e0| 69 76 61 74 65 41 62 6f | 75 74 57 69 6e 64 6f 77 |ivateAbo|utWindow|
|000008f0| 20 2a 29 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 | *)...pr|ocedure |
|00000900| 53 63 72 6f 6c 6c 44 69 | 73 70 6c 61 79 20 28 77 |ScrollDi|splay (w|
|00000910| 68 69 63 68 57 69 6e 64 | 6f 77 3a 20 57 69 6e 64 |hichWind|ow: Wind|
|00000920| 6f 77 50 74 72 3b 20 76 | 53 63 72 6f 6c 6c 3a 20 |owPtr; v|Scroll: |
|00000930| 43 6f 6e 74 72 6f 6c 48 | 61 6e 64 6c 65 29 3b 0d |ControlH|andle);.|
|00000940| 09 09 76 61 72 0d 09 09 | 09 6f 6c 64 56 61 6c 75 |..var...|.oldValu|
|00000950| 65 2c 20 6e 65 77 56 61 | 6c 75 65 2c 20 64 65 6c |e, newVa|lue, del|
|00000960| 74 61 3a 20 49 4e 54 45 | 47 45 52 3b 0d 0d 09 62 |ta: INTE|GER;...b|
|00000970| 65 67 69 6e 0d 09 09 6e | 65 77 56 61 6c 75 65 20 |egin...n|ewValue |
|00000980| 3a 3d 20 47 65 74 43 74 | 6c 56 61 6c 75 65 28 76 |:= GetCt|lValue(v|
|00000990| 53 63 72 6f 6c 6c 29 20 | 2a 20 4c 69 6e 65 53 70 |Scroll) |* LineSp|
|000009a0| 61 63 69 6e 67 3b 0d 09 | 09 77 69 74 68 20 41 62 |acing;..|.with Ab|
|000009b0| 6f 75 74 54 45 48 61 6e | 64 6c 65 5e 5e 20 64 6f |outTEHan|dle^^ do|
|000009c0| 0d 09 09 09 6f 6c 64 56 | 61 6c 75 65 20 3a 3d 20 |....oldV|alue := |
|000009d0| 76 69 65 77 52 65 63 74 | 2e 74 6f 70 20 2d 20 64 |viewRect|.top - d|
|000009e0| 65 73 74 52 65 63 74 2e | 74 6f 70 3b 0d 09 09 64 |estRect.|top;...d|
|000009f0| 65 6c 74 61 20 3a 3d 20 | 6f 6c 64 56 61 6c 75 65 |elta := |oldValue|
|00000a00| 20 2d 20 6e 65 77 56 61 | 6c 75 65 3b 0d 09 09 54 | - newVa|lue;...T|
|00000a10| 45 53 63 72 6f 6c 6c 28 | 30 2c 20 64 65 6c 74 61 |EScroll(|0, delta|
|00000a20| 2c 20 41 62 6f 75 74 54 | 45 48 61 6e 64 6c 65 29 |, AboutT|EHandle)|
|00000a30| 3b 0d 09 65 6e 64 3b 20 | 28 2a 20 53 63 72 6f 6c |;..end; |(* Scrol|
|00000a40| 6c 44 69 73 70 6c 61 79 | 20 2a 29 0d 0d 0d 09 70 |lDisplay| *)....p|
|00000a50| 72 6f 63 65 64 75 72 65 | 20 53 63 72 6f 6c 6c 41 |rocedure| ScrollA|
|00000a60| 63 74 69 6f 6e 50 72 6f | 63 20 28 77 68 69 63 68 |ctionPro|c (which|
|00000a70| 43 6f 6e 74 72 6f 6c 3a | 20 43 6f 6e 74 72 6f 6c |Control:| Control|
|00000a80| 48 61 6e 64 6c 65 3b 20 | 70 61 72 74 43 6f 64 65 |Handle; |partCode|
|00000a90| 3a 20 49 4e 54 45 47 45 | 52 29 3b 0d 09 09 63 6f |: INTEGE|R);...co|
|00000aa0| 6e 73 74 0d 09 09 09 64 | 65 6c 61 79 20 3d 20 30 |nst....d|elay = 0|
|00000ab0| 3b 0d 0d 09 09 76 61 72 | 0d 09 09 09 6f 6b 3a 20 |;....var|....ok: |
|00000ac0| 42 6f 6f 6c 65 61 6e 3b | 0d 09 09 09 6d 69 6e 2c |Boolean;|....min,|
|00000ad0| 20 6d 61 78 2c 20 76 61 | 6c 75 65 2c 20 64 65 6c | max, va|lue, del|
|00000ae0| 74 61 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 09 09 |ta: INTE|GER;....|
|00000af0| 6f 6c 64 54 69 6d 65 3a | 20 4c 4f 4e 47 49 4e 54 |oldTime:| LONGINT|
|00000b00| 3b 0d 09 09 09 6f 75 74 | 6c 69 6e 65 52 65 63 74 |;....out|lineRect|
|00000b10| 2c 20 74 65 78 74 52 65 | 63 74 3a 20 52 65 63 74 |, textRe|ct: Rect|
|00000b20| 3b 0d 09 09 09 76 69 73 | 4c 69 6e 65 73 3a 20 49 |;....vis|Lines: I|
|00000b30| 4e 54 45 47 45 52 3b 0d | 0d 09 62 65 67 69 6e 0d |NTEGER;.|..begin.|
|00000b40| 09 09 43 61 6c 63 54 65 | 78 74 52 65 63 74 28 46 |..CalcTe|xtRect(F|
|00000b50| 72 6f 6e 74 57 69 6e 64 | 6f 77 2c 20 6f 75 74 6c |rontWind|ow, outl|
|00000b60| 69 6e 65 52 65 63 74 2c | 20 74 65 78 74 52 65 63 |ineRect,| textRec|
|00000b70| 74 29 3b 0d 09 09 77 69 | 74 68 20 74 65 78 74 52 |t);...wi|th textR|
|00000b80| 65 63 74 20 64 6f 0d 09 | 09 09 76 69 73 4c 69 6e |ect do..|..visLin|
|00000b90| 65 73 20 3a 3d 20 28 62 | 6f 74 74 6f 6d 20 2d 20 |es := (b|ottom - |
|00000ba0| 74 6f 70 29 20 64 69 76 | 20 4c 69 6e 65 53 70 61 |top) div| LineSpa|
|00000bb0| 63 69 6e 67 3b 0d 0d 09 | 09 6d 61 78 20 3a 3d 20 |cing;...|.max := |
|00000bc0| 47 65 74 43 74 6c 4d 61 | 78 28 77 68 69 63 68 43 |GetCtlMa|x(whichC|
|00000bd0| 6f 6e 74 72 6f 6c 29 3b | 0d 09 09 6d 69 6e 20 3a |ontrol);|...min :|
|00000be0| 3d 20 47 65 74 43 74 6c | 4d 69 6e 28 77 68 69 63 |= GetCtl|Min(whic|
|00000bf0| 68 43 6f 6e 74 72 6f 6c | 29 3b 0d 09 09 6f 6b 20 |hControl|);...ok |
|00000c00| 3a 3d 20 54 52 55 45 3b | 0d 09 09 6f 6c 64 54 69 |:= TRUE;|...oldTi|
|00000c10| 6d 65 20 3a 3d 20 54 69 | 63 6b 43 6f 75 6e 74 3b |me := Ti|ckCount;|
|00000c20| 0d 09 09 63 61 73 65 20 | 70 61 72 74 43 6f 64 65 |...case |partCode|
|00000c30| 20 6f 66 0d 09 09 09 69 | 6e 55 70 42 75 74 74 6f | of....i|nUpButto|
|00000c40| 6e 3a 20 0d 09 09 09 09 | 64 65 6c 74 61 20 3a 3d |n: .....|delta :=|
|00000c50| 20 2d 31 3b 0d 09 09 09 | 69 6e 44 6f 77 6e 42 75 | -1;....|inDownBu|
|00000c60| 74 74 6f 6e 3a 20 0d 09 | 09 09 09 64 65 6c 74 61 |tton: ..|...delta|
|00000c70| 20 3a 3d 20 31 3b 0d 09 | 09 09 69 6e 50 61 67 65 | := 1;..|..inPage|
|00000c80| 55 70 3a 20 0d 09 09 09 | 09 64 65 6c 74 61 20 3a |Up: ....|.delta :|
|00000c90| 3d 20 2d 76 69 73 4c 69 | 6e 65 73 3b 0d 09 09 09 |= -visLi|nes;....|
|00000ca0| 69 6e 50 61 67 65 44 6f | 77 6e 3a 20 0d 09 09 09 |inPageDo|wn: ....|
|00000cb0| 09 64 65 6c 74 61 20 3a | 3d 20 76 69 73 4c 69 6e |.delta :|= visLin|
|00000cc0| 65 73 3b 0d 09 09 09 6f | 74 68 65 72 77 69 73 65 |es;....o|therwise|
|00000cd0| 0d 09 09 09 09 6f 6b 20 | 3a 3d 20 46 41 4c 53 45 |.....ok |:= FALSE|
|00000ce0| 3b 0d 09 09 65 6e 64 3b | 0d 09 09 69 66 20 6f 6b |;...end;|...if ok|
|00000cf0| 20 74 68 65 6e 0d 09 09 | 09 62 65 67 69 6e 0d 09 | then...|.begin..|
|00000d00| 09 09 09 76 61 6c 75 65 | 20 3a 3d 20 47 65 74 43 |...value| := GetC|
|00000d10| 74 6c 56 61 6c 75 65 28 | 77 68 69 63 68 43 6f 6e |tlValue(|whichCon|
|00000d20| 74 72 6f 6c 29 3b 0d 09 | 09 09 09 69 66 20 6e 6f |trol);..|...if no|
|00000d30| 74 20 28 28 76 61 6c 75 | 65 20 3d 20 6d 69 6e 29 |t ((valu|e = min)|
|00000d40| 20 61 6e 64 20 28 64 65 | 6c 74 61 20 3c 20 30 29 | and (de|lta < 0)|
|00000d50| 29 20 6f 72 20 28 28 76 | 61 6c 75 65 20 3d 20 6d |) or ((v|alue = m|
|00000d60| 61 78 29 20 61 6e 64 20 | 28 64 65 6c 74 61 20 3e |ax) and |(delta >|
|00000d70| 20 30 29 29 20 74 68 65 | 6e 0d 09 09 09 09 09 53 | 0)) the|n......S|
|00000d80| 65 74 43 74 6c 56 61 6c | 75 65 28 77 68 69 63 68 |etCtlVal|ue(which|
|00000d90| 43 6f 6e 74 72 6f 6c 2c | 20 76 61 6c 75 65 20 2b |Control,| value +|
|00000da0| 20 64 65 6c 74 61 29 3b | 0d 0d 09 09 09 09 53 63 | delta);|......Sc|
|00000db0| 72 6f 6c 6c 44 69 73 70 | 6c 61 79 28 46 72 6f 6e |rollDisp|lay(Fron|
|00000dc0| 74 57 69 6e 64 6f 77 2c | 20 77 68 69 63 68 43 6f |tWindow,| whichCo|
|00000dd0| 6e 74 72 6f 6c 29 3b 0d | 09 09 09 65 6e 64 3b 0d |ntrol);.|...end;.|
|00000de0| 0d 20 20 20 20 20 28 2a | 20 53 65 74 20 61 6e 20 |. (*| Set an |
|00000df0| 75 70 70 65 72 20 6c 69 | 6d 69 74 20 6f 6e 20 74 |upper li|mit on t|
|00000e00| 68 65 20 73 70 65 65 64 | 20 6f 66 20 74 68 65 20 |he speed| of the |
|00000e10| 63 6f 6e 74 72 6f 6c 20 | 74 72 61 63 6b 69 6e 67 |control |tracking|
|00000e20| 20 2a 29 0d 09 09 77 68 | 69 6c 65 20 28 54 69 63 | *)...wh|ile (Tic|
|00000e30| 6b 43 6f 75 6e 74 20 3c | 20 28 6f 6c 64 54 69 6d |kCount <| (oldTim|
|00000e40| 65 20 2b 20 64 65 6c 61 | 79 29 29 20 64 6f 0d 09 |e + dela|y)) do..|
|00000e50| 09 09 3b 0d 09 65 6e 64 | 3b 20 28 2a 20 53 63 72 |..;..end|; (* Scr|
|00000e60| 6f 6c 6c 41 63 74 69 6f | 6e 50 72 6f 63 20 2a 29 |ollActio|nProc *)|
|00000e70| 0d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 44 6f |....proc|edure Do|
|00000e80| 4d 6f 75 73 65 49 6e 41 | 62 6f 75 74 20 28 6d 79 |MouseInA|bout (my|
|00000e90| 45 76 65 6e 74 3a 20 45 | 76 65 6e 74 52 65 63 6f |Event: E|ventReco|
|00000ea0| 72 64 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 67 6c |rd);...v|ar....gl|
|00000eb0| 6f 62 61 6c 50 74 2c 20 | 6c 6f 63 61 6c 50 74 3a |obalPt, |localPt:|
|00000ec0| 20 50 6f 69 6e 74 3b 0d | 09 09 09 6f 75 74 6c 69 | Point;.|...outli|
|00000ed0| 6e 65 52 65 63 74 2c 20 | 74 65 78 74 52 65 63 74 |neRect, |textRect|
|00000ee0| 3a 20 52 65 63 74 3b 0d | 09 09 09 70 61 72 74 43 |: Rect;.|...partC|
|00000ef0| 6f 64 65 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 09 |ode: INT|EGER;...|
|00000f00| 09 77 68 69 63 68 43 6f | 6e 74 72 6f 6c 3a 20 43 |.whichCo|ntrol: C|
|00000f10| 6f 6e 74 72 6f 6c 48 61 | 6e 64 6c 65 3b 0d 0d 09 |ontrolHa|ndle;...|
|00000f20| 62 65 67 69 6e 0d 09 09 | 67 6c 6f 62 61 6c 50 74 |begin...|globalPt|
|00000f30| 20 3a 3d 20 6d 79 45 76 | 65 6e 74 2e 77 68 65 72 | := myEv|ent.wher|
|00000f40| 65 3b 0d 09 09 69 66 20 | 41 62 6f 75 74 57 69 6e |e;...if |AboutWin|
|00000f50| 64 6f 77 20 3c 3e 20 46 | 72 6f 6e 74 57 69 6e 64 |dow <> F|rontWind|
|00000f60| 6f 77 20 74 68 65 6e 0d | 09 09 09 53 65 6c 65 63 |ow then.|...Selec|
|00000f70| 74 57 69 6e 64 6f 77 28 | 41 62 6f 75 74 57 69 6e |tWindow(|AboutWin|
|00000f80| 64 6f 77 29 0d 09 09 65 | 6c 73 65 0d 09 09 09 62 |dow)...e|lse....b|
|00000f90| 65 67 69 6e 0d 09 09 09 | 09 53 65 74 50 6f 72 74 |egin....|.SetPort|
|00000fa0| 28 41 62 6f 75 74 57 69 | 6e 64 6f 77 29 3b 0d 09 |(AboutWi|ndow);..|
|00000fb0| 09 09 09 6c 6f 63 61 6c | 50 74 20 3a 3d 20 47 6c |...local|Pt := Gl|
|00000fc0| 6f 62 61 6c 50 74 3b 0d | 09 09 09 09 47 6c 6f 62 |obalPt;.|....Glob|
|00000fd0| 61 6c 54 6f 4c 6f 63 61 | 6c 28 6c 6f 63 61 6c 50 |alToLoca|l(localP|
|00000fe0| 74 29 3b 0d 09 09 09 09 | 43 61 6c 63 54 65 78 74 |t);.....|CalcText|
|00000ff0| 52 65 63 74 28 41 62 6f | 75 74 57 69 6e 64 6f 77 |Rect(Abo|utWindow|
|00001000| 2c 20 6f 75 74 6c 69 6e | 65 52 65 63 74 2c 20 74 |, outlin|eRect, t|
|00001010| 65 78 74 52 65 63 74 29 | 3b 0d 09 09 09 09 69 66 |extRect)|;.....if|
|00001020| 20 50 74 49 6e 52 65 63 | 74 28 6c 6f 63 61 6c 50 | PtInRec|t(localP|
|00001030| 74 2c 20 74 65 78 74 52 | 65 63 74 29 20 74 68 65 |t, textR|ect) the|
|00001040| 6e 0d 28 2a 20 54 45 43 | 6c 69 63 6b 28 6c 6f 63 |n.(* TEC|lick(loc|
|00001050| 61 6c 50 74 2c 20 42 69 | 74 41 6e 64 28 6d 79 45 |alPt, Bi|tAnd(myE|
|00001060| 76 65 6e 74 2e 6d 6f 64 | 69 66 69 65 72 73 2c 20 |vent.mod|ifiers, |
|00001070| 73 68 69 66 74 4b 65 79 | 29 20 3c 3e 20 30 2c 20 |shiftKey|) <> 0, |
|00001080| 41 62 6f 75 74 54 45 48 | 41 6e 64 6c 65 29 20 2a |AboutTEH|Andle) *|
|00001090| 29 0d 09 09 09 09 65 6c | 73 65 0d 09 09 09 09 09 |).....el|se......|
|000010a0| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 70 61 72 74 |begin...|....part|
|000010b0| 43 6f 64 65 20 3a 3d 20 | 46 69 6e 64 43 6f 6e 74 |Code := |FindCont|
|000010c0| 72 6f 6c 28 6c 6f 63 61 | 6c 50 74 2c 20 41 62 6f |rol(loca|lPt, Abo|
|000010d0| 75 74 57 69 6e 64 6f 77 | 2c 20 77 68 69 63 68 43 |utWindow|, whichC|
|000010e0| 6f 6e 74 72 6f 6c 29 3b | 0d 09 09 09 09 09 09 63 |ontrol);|.......c|
|000010f0| 61 73 65 20 70 61 72 74 | 43 6f 64 65 20 6f 66 0d |ase part|Code of.|
|00001100| 09 09 09 09 09 09 09 30 | 3a 20 0d 09 09 09 09 09 |.......0|: ......|
|00001110| 09 09 09 3b 20 20 28 2a | 20 64 6f 20 6e 6f 74 68 |...; (*| do noth|
|00001120| 69 6e 67 20 2a 29 0d 09 | 09 09 09 09 09 09 69 6e |ing *)..|......in|
|00001130| 55 70 42 75 74 74 6f 6e | 2c 20 69 6e 44 6f 77 6e |UpButton|, inDown|
|00001140| 42 75 74 74 6f 6e 2c 20 | 69 6e 50 61 67 65 55 70 |Button, |inPageUp|
|00001150| 2c 20 69 6e 50 61 67 65 | 44 6f 77 6e 3a 20 0d 09 |, inPage|Down: ..|
|00001160| 09 09 09 09 09 09 09 70 | 61 72 74 43 6f 64 65 20 |.......p|artCode |
|00001170| 3a 3d 20 54 72 61 63 6b | 43 6f 6e 74 72 6f 6c 28 |:= Track|Control(|
|00001180| 77 68 69 63 68 43 6f 6e | 74 72 6f 6c 2c 20 6c 6f |whichCon|trol, lo|
|00001190| 63 61 6c 50 74 2c 20 40 | 53 63 72 6f 6c 6c 41 63 |calPt, @|ScrollAc|
|000011a0| 74 69 6f 6e 50 72 6f 63 | 29 3b 0d 0d 09 09 09 09 |tionProc|);......|
|000011b0| 09 09 09 69 6e 54 68 75 | 6d 62 3a 20 0d 09 09 09 |...inThu|mb: ....|
|000011c0| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|000011d0| 09 09 09 09 70 61 72 74 | 43 6f 64 65 20 3a 3d 20 |....part|Code := |
|000011e0| 54 72 61 63 6b 43 6f 6e | 74 72 6f 6c 28 77 68 69 |TrackCon|trol(whi|
|000011f0| 63 68 43 6f 6e 74 72 6f | 6c 2c 20 6c 6f 63 61 6c |chContro|l, local|
|00001200| 50 74 2c 20 6e 69 6c 29 | 3b 0d 09 09 09 09 09 09 |Pt, nil)|;.......|
|00001210| 09 09 09 69 66 20 28 70 | 61 72 74 43 6f 64 65 20 |...if (p|artCode |
|00001220| 3c 3e 20 30 29 20 74 68 | 65 6e 0d 09 09 09 09 09 |<> 0) th|en......|
|00001230| 09 09 09 09 09 53 63 72 | 6f 6c 6c 44 69 73 70 6c |.....Scr|ollDispl|
|00001240| 61 79 28 41 62 6f 75 74 | 57 69 6e 64 6f 77 2c 20 |ay(About|Window, |
|00001250| 77 68 69 63 68 43 6f 6e | 74 72 6f 6c 29 3b 0d 09 |whichCon|trol);..|
|00001260| 09 09 09 09 09 09 09 65 | 6e 64 3b 0d 0d 09 09 09 |.......e|nd;.....|
|00001270| 09 09 09 65 6e 64 3b 20 | 28 2a 20 43 41 53 45 20 |...end; |(* CASE |
|00001280| 2a 29 0d 09 09 09 09 09 | 65 6e 64 3b 20 28 2a 20 |*)......|end; (* |
|00001290| 43 68 65 63 6b 20 74 68 | 65 20 63 6f 6e 74 72 6f |Check th|e contro|
|000012a0| 6c 73 20 2a 29 0d 09 09 | 09 65 6e 64 3b 20 28 2a |ls *)...|.end; (*|
|000012b0| 20 57 65 27 72 65 20 74 | 68 65 20 66 72 6f 6e 74 | We're t|he front|
|000012c0| 6d 6f 73 74 20 77 69 6e | 64 6f 77 20 2a 29 0d 09 |most win|dow *)..|
|000012d0| 65 6e 64 3b 20 28 2a 20 | 44 6f 4d 6f 75 73 65 49 |end; (* |DoMouseI|
|000012e0| 6e 41 62 6f 75 74 20 2a | 29 0d 0d 20 20 20 28 2a |nAbout *|).. (*|
|000012f0| 20 50 75 62 6c 69 63 20 | 72 6f 75 74 69 6e 65 73 | Public |routines|
|00001300| 20 2a 29 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 | *)...pr|ocedure |
|00001310| 49 6e 69 74 41 62 6f 75 | 74 57 69 6e 64 6f 77 3b |InitAbou|tWindow;|
|00001320| 0d 09 09 63 6f 6e 73 74 | 0d 09 09 09 54 45 53 74 |...const|....TESt|
|00001330| 79 6c 4e 65 77 54 72 61 | 70 4e 75 6d 62 65 72 20 |ylNewTra|pNumber |
|00001340| 3d 20 24 41 38 33 45 3b | 20 7b 20 74 72 61 70 20 |= $A83E;| { trap |
|00001350| 6e 75 6d 62 65 72 20 6f | 66 20 54 45 53 74 79 6c |number o|f TEStyl|
|00001360| 4e 65 77 20 7d 0d 09 09 | 09 55 6e 69 6d 70 6c 65 |New }...|.Unimple|
|00001370| 6d 65 6e 74 65 64 54 72 | 61 70 4e 75 6d 62 65 72 |mentedTr|apNumber|
|00001380| 20 3d 20 24 41 38 39 46 | 3b 20 20 7b 6e 75 6d 62 | = $A89F|; {numb|
|00001390| 65 72 20 6f 66 20 22 75 | 6e 69 6d 70 6c 65 6d 65 |er of "u|nimpleme|
|000013a0| 6e 74 65 64 20 74 72 61 | 70 22 7d 0d 0d 09 09 76 |nted tra|p"}....v|
|000013b0| 61 72 0d 09 09 09 72 6f | 6d 3a 20 69 6e 74 65 67 |ar....ro|m: integ|
|000013c0| 65 72 3b 20 20 20 20 20 | 20 20 28 2a 20 57 68 69 |er; | (* Whi|
|000013d0| 63 68 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 74 68 |ch versi|on of th|
|000013e0| 65 20 52 4f 4d 20 61 72 | 65 20 77 65 20 72 75 6e |e ROM ar|e we run|
|000013f0| 6e 69 6e 67 3f 20 2a 29 | 0d 09 09 09 6d 61 63 68 |ning? *)|....mach|
|00001400| 69 6e 65 3a 20 69 6e 74 | 65 67 65 72 3b 20 28 2a |ine: int|eger; (*|
|00001410| 20 57 68 69 63 68 20 6d | 61 63 68 69 6e 65 20 69 | Which m|achine i|
|00001420| 73 20 74 68 69 73 3f 3f | 20 2a 29 0d 0d 09 62 65 |s this??| *)...be|
|00001430| 67 69 6e 0d 09 09 41 62 | 6f 75 74 57 69 6e 64 6f |gin...Ab|outWindo|
|00001440| 77 20 3a 3d 20 6e 69 6c | 3b 0d 09 09 41 62 6f 75 |w := nil|;...Abou|
|00001450| 74 54 45 48 61 6e 64 6c | 65 20 3a 3d 20 6e 69 6c |tTEHandl|e := nil|
|00001460| 3b 0d 09 09 45 6e 76 69 | 72 6f 6e 73 28 72 6f 6d |;...Envi|rons(rom|
|00001470| 2c 20 6d 61 63 68 69 6e | 65 29 3b 20 20 28 2a 20 |, machin|e); (* |
|00001480| 4d 61 6b 65 20 73 75 72 | 65 20 74 68 61 74 20 77 |Make sur|e that w|
|00001490| 65 20 63 61 6e 20 63 61 | 6c 6c 20 53 79 73 45 6e |e can ca|ll SysEn|
|000014a0| 76 69 72 6f 6e 73 20 2d | 2d 20 74 68 65 20 4c 53 |virons -|- the LS|
|000014b0| 50 20 67 6c 75 65 20 64 | 6f 65 73 6e 27 74 20 2a |P glue d|oesn't *|
|000014c0| 29 0d 09 09 69 66 20 28 | 72 6f 6d 20 3e 3d 20 31 |)...if (|rom >= 1|
|000014d0| 31 37 29 20 74 68 65 6e | 20 20 20 20 20 20 28 2a |17) then| (*|
|000014e0| 20 54 68 69 73 20 69 73 | 20 61 20 4d 61 63 20 35 | This is| a Mac 5|
|000014f0| 31 32 4b 65 20 6f 72 20 | 6c 61 74 65 72 20 2c 20 |12Ke or |later , |
|00001500| 73 6f 20 77 65 20 63 61 | 6e 20 73 65 65 20 69 66 |so we ca|n see if|
|00001510| 20 77 65 20 68 61 76 65 | 20 57 61 69 74 4e 65 78 | we have| WaitNex|
|00001520| 74 45 76 65 6e 74 20 2a | 29 0d 09 09 09 48 61 73 |tEvent *|)....Has|
|00001530| 53 74 79 6c 65 64 54 45 | 20 3a 3d 20 4e 47 65 74 |StyledTE| := NGet|
|00001540| 54 72 61 70 41 64 64 72 | 65 73 73 28 54 45 53 74 |TrapAddr|ess(TESt|
|00001550| 79 6c 4e 65 77 54 72 61 | 70 4e 75 6d 62 65 72 2c |ylNewTra|pNumber,|
|00001560| 20 54 6f 6f 6c 54 72 61 | 70 29 20 3c 3e 20 47 65 | ToolTra|p) <> Ge|
|00001570| 74 54 72 61 70 41 64 64 | 72 65 73 73 28 55 6e 69 |tTrapAdd|ress(Uni|
|00001580| 6d 70 6c 65 6d 65 6e 74 | 65 64 54 72 61 70 4e 75 |mplement|edTrapNu|
|00001590| 6d 62 65 72 29 0d 09 09 | 65 6c 73 65 0d 09 09 09 |mber)...|else....|
|000015a0| 48 61 73 53 74 79 6c 65 | 64 54 45 20 3a 3d 20 46 |HasStyle|dTE := F|
|000015b0| 41 4c 53 45 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 49 |ALSE;..e|nd; (* I|
|000015c0| 6e 69 74 41 62 6f 75 74 | 57 69 6e 64 6f 77 20 2a |nitAbout|Window *|
|000015d0| 29 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 41 64 |)...proc|edure Ad|
|000015e0| 6a 75 73 74 41 62 6f 75 | 74 57 69 6e 64 6f 77 3b |justAbou|tWindow;|
|000015f0| 0d 09 09 76 61 72 0d 09 | 09 09 6e 65 77 56 69 65 |...var..|..newVie|
|00001600| 77 52 65 63 74 2c 20 62 | 6f 64 79 46 72 61 6d 65 |wRect, b|odyFrame|
|00001610| 52 65 63 74 3a 20 52 65 | 63 74 3b 0d 09 09 09 76 |Rect: Re|ct;....v|
|00001620| 53 63 72 6f 6c 6c 3a 20 | 43 6f 6e 74 72 6f 6c 48 |Scroll: |ControlH|
|00001630| 61 6e 64 6c 65 3b 0d 09 | 09 09 6e 75 6d 4c 69 6e |andle;..|..numLin|
|00001640| 65 73 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 09 09 |es: INTE|GER;....|
|00001650| 6e 65 77 4d 61 78 56 61 | 6c 75 65 3a 20 49 4e 54 |newMaxVa|lue: INT|
|00001660| 45 47 45 52 3b 0d 0d 09 | 62 65 67 69 6e 0d 09 09 |EGER;...|begin...|
|00001670| 53 65 74 43 75 72 73 6f | 72 28 47 65 74 43 75 72 |SetCurso|r(GetCur|
|00001680| 73 6f 72 28 77 61 74 63 | 68 43 75 72 73 6f 72 29 |sor(watc|hCursor)|
|00001690| 5e 5e 29 3b 0d 09 09 43 | 61 6c 63 54 65 78 74 52 |^^);...C|alcTextR|
|000016a0| 65 63 74 28 41 62 6f 75 | 74 57 69 6e 64 6f 77 2c |ect(Abou|tWindow,|
|000016b0| 20 62 6f 64 79 46 72 61 | 6d 65 52 65 63 74 2c 20 | bodyFra|meRect, |
|000016c0| 6e 65 77 56 69 65 77 52 | 65 63 74 29 3b 0d 09 09 |newViewR|ect);...|
|000016d0| 53 65 74 50 6f 72 74 28 | 41 62 6f 75 74 57 69 6e |SetPort(|AboutWin|
|000016e0| 64 6f 77 29 3b 0d 09 09 | 49 6e 76 61 6c 52 65 63 |dow);...|InvalRec|
|000016f0| 74 28 6e 65 77 56 69 65 | 77 52 65 63 74 29 3b 0d |t(newVie|wRect);.|
|00001700| 09 09 76 53 63 72 6f 6c | 6c 20 3a 3d 20 57 69 6e |..vScrol|l := Win|
|00001710| 64 6f 77 50 65 65 6b 28 | 41 62 6f 75 74 57 69 6e |dowPeek(|AboutWin|
|00001720| 64 6f 77 29 5e 2e 43 6f | 6e 74 72 6f 6c 4c 69 73 |dow)^.Co|ntrolLis|
|00001730| 74 3b 0d 0d 09 09 45 72 | 61 73 65 52 65 63 74 28 |t;....Er|aseRect(|
|00001740| 41 62 6f 75 74 57 69 6e | 64 6f 77 5e 2e 70 6f 72 |AboutWin|dow^.por|
|00001750| 74 52 65 63 74 29 3b 0d | 09 09 77 69 74 68 20 62 |tRect);.|..with b|
|00001760| 6f 64 79 46 72 61 6d 65 | 52 65 63 74 20 64 6f 0d |odyFrame|Rect do.|
|00001770| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 48 69 64 |...begin|.....Hid|
|00001780| 65 43 6f 6e 74 72 6f 6c | 28 76 53 63 72 6f 6c 6c |eControl|(vScroll|
|00001790| 29 3b 0d 09 09 09 09 4d | 6f 76 65 43 6f 6e 74 72 |);.....M|oveContr|
|000017a0| 6f 6c 28 76 53 63 72 6f | 6c 6c 2c 20 72 69 67 68 |ol(vScro|ll, righ|
|000017b0| 74 20 2d 20 31 2c 20 74 | 6f 70 29 3b 0d 09 09 09 |t - 1, t|op);....|
|000017c0| 09 53 69 7a 65 43 6f 6e | 74 72 6f 6c 28 76 53 63 |.SizeCon|trol(vSc|
|000017d0| 72 6f 6c 6c 2c 20 31 36 | 2c 20 28 62 6f 74 74 6f |roll, 16|, (botto|
|000017e0| 6d 20 2d 20 74 6f 70 29 | 29 3b 0d 09 09 09 09 53 |m - top)|);.....S|
|000017f0| 68 6f 77 43 6f 6e 74 72 | 6f 6c 28 76 53 63 72 6f |howContr|ol(vScro|
|00001800| 6c 6c 29 3b 0d 09 09 09 | 09 56 61 6c 69 64 52 65 |ll);....|.ValidRe|
|00001810| 63 74 28 76 53 63 72 6f | 6c 6c 5e 5e 2e 63 6f 6e |ct(vScro|ll^^.con|
|00001820| 74 72 6c 52 65 63 74 29 | 3b 0d 09 09 09 65 6e 64 |trlRect)|;....end|
|00001830| 3b 0d 09 09 46 72 61 6d | 65 52 65 63 74 28 62 6f |;...Fram|eRect(bo|
|00001840| 64 79 46 72 61 6d 65 52 | 65 63 74 29 3b 0d 0d 09 |dyFrameR|ect);...|
|00001850| 09 77 69 74 68 20 41 62 | 6f 75 74 54 45 48 61 6e |.with Ab|outTEHan|
|00001860| 64 6c 65 5e 5e 20 64 6f | 0d 09 09 09 62 65 67 69 |dle^^ do|....begi|
|00001870| 6e 0d 09 09 09 09 64 65 | 73 74 52 65 63 74 20 3a |n.....de|stRect :|
|00001880| 3d 20 6e 65 77 56 69 65 | 77 52 65 63 74 3b 0d 09 |= newVie|wRect;..|
|00001890| 09 09 09 76 69 65 77 52 | 65 63 74 20 3a 3d 20 6e |...viewR|ect := n|
|000018a0| 65 77 56 69 65 77 52 65 | 63 74 3b 0d 09 09 09 65 |ewViewRe|ct;....e|
|000018b0| 6e 64 3b 0d 09 09 54 45 | 43 61 6c 54 65 78 74 28 |nd;...TE|CalText(|
|000018c0| 41 62 6f 75 74 54 45 48 | 61 6e 64 6c 65 29 3b 0d |AboutTEH|andle);.|
|000018d0| 09 09 77 69 74 68 20 41 | 62 6f 75 74 54 45 48 61 |..with A|boutTEHa|
|000018e0| 6e 64 6c 65 5e 5e 20 64 | 6f 0d 09 09 09 62 65 67 |ndle^^ d|o....beg|
|000018f0| 69 6e 0d 09 09 09 09 6e | 75 6d 4c 69 6e 65 73 20 |in.....n|umLines |
|00001900| 3a 3d 20 6e 4c 69 6e 65 | 73 3b 0d 09 09 09 09 69 |:= nLine|s;.....i|
|00001910| 66 20 28 43 68 61 72 73 | 48 61 6e 64 6c 65 28 68 |f (Chars|Handle(h|
|00001920| 54 65 78 74 29 5e 5e 5b | 74 65 4c 65 6e 67 74 68 |Text)^^[|teLength|
|00001930| 5d 20 3d 20 43 48 52 28 | 31 33 29 29 20 74 68 65 |] = CHR(|13)) the|
|00001940| 6e 0d 09 09 09 09 09 6e | 75 6d 4c 69 6e 65 73 20 |n......n|umLines |
|00001950| 3a 3d 20 6e 4c 69 6e 65 | 73 20 2b 20 31 3b 0d 09 |:= nLine|s + 1;..|
|00001960| 09 09 65 6e 64 3b 0d 0d | 09 09 77 69 74 68 20 6e |..end;..|..with n|
|00001970| 65 77 56 69 65 77 52 65 | 63 74 20 64 6f 0d 09 09 |ewViewRe|ct do...|
|00001980| 09 62 65 67 69 6e 0d 09 | 09 09 09 6e 65 77 4d 61 |.begin..|...newMa|
|00001990| 78 56 61 6c 75 65 20 3a | 3d 20 28 28 6e 75 6d 4c |xValue :|= ((numL|
|000019a0| 69 6e 65 73 20 2a 20 4c | 69 6e 65 53 70 61 63 69 |ines * L|ineSpaci|
|000019b0| 6e 67 29 20 2d 20 28 62 | 6f 74 74 6f 6d 20 2d 20 |ng) - (b|ottom - |
|000019c0| 74 6f 70 29 29 20 64 69 | 76 20 4c 69 6e 65 53 70 |top)) di|v LineSp|
|000019d0| 61 63 69 6e 67 3b 0d 09 | 09 09 09 69 66 20 6e 65 |acing;..|...if ne|
|000019e0| 77 4d 61 78 56 61 6c 75 | 65 20 3c 20 30 20 74 68 |wMaxValu|e < 0 th|
|000019f0| 65 6e 0d 09 09 09 09 09 | 6e 65 77 4d 61 78 56 61 |en......|newMaxVa|
|00001a00| 6c 75 65 20 3a 3d 20 30 | 3b 0d 09 09 09 09 53 65 |lue := 0|;.....Se|
|00001a10| 74 43 74 6c 4d 61 78 28 | 76 53 63 72 6f 6c 6c 2c |tCtlMax(|vScroll,|
|00001a20| 20 6e 65 77 4d 61 78 56 | 61 6c 75 65 29 3b 0d 09 | newMaxV|alue);..|
|00001a30| 09 09 65 6e 64 3b 0d 09 | 09 49 6e 69 74 43 75 72 |..end;..|.InitCur|
|00001a40| 73 6f 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 41 64 |sor;..en|d; (* Ad|
|00001a50| 6a 75 73 74 41 62 6f 75 | 74 57 69 6e 64 6f 77 20 |justAbou|tWindow |
|00001a60| 2a 29 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |*)....pr|ocedure |
|00001a70| 4f 70 65 6e 41 62 6f 75 | 74 57 69 6e 64 6f 77 3b |OpenAbou|tWindow;|
|00001a80| 0d 0d 09 09 70 72 6f 63 | 65 64 75 72 65 20 47 65 |....proc|edure Ge|
|00001a90| 74 41 62 6f 75 74 57 69 | 6e 64 6f 77 54 65 78 74 |tAboutWi|ndowText|
|00001aa0| 3b 0d 09 09 09 76 61 72 | 0d 09 09 09 09 73 63 72 |;....var|.....scr|
|00001ab0| 61 74 63 68 52 65 63 74 | 3a 20 52 65 63 74 3b 0d |atchRect|: Rect;.|
|00001ac0| 09 09 09 09 74 48 61 6e | 64 6c 65 3a 20 48 61 6e |....tHan|dle: Han|
|00001ad0| 64 6c 65 3b 0d 09 09 09 | 09 73 63 72 61 74 63 68 |dle;....|.scratch|
|00001ae0| 43 6f 6e 74 72 6f 6c 3a | 20 43 6f 6e 74 72 6f 6c |Control:| Control|
|00001af0| 48 61 6e 64 6c 65 3b 0d | 0d 09 09 62 65 67 69 6e |Handle;.|...begin|
|00001b00| 0d 09 09 09 53 65 74 52 | 65 63 74 28 73 63 72 61 |....SetR|ect(scra|
|00001b10| 74 63 68 52 65 63 74 2c | 20 30 2c 20 30 2c 20 31 |tchRect,| 0, 0, 1|
|00001b20| 30 2c 20 31 30 29 3b 0d | 09 09 09 54 65 78 74 46 |0, 10);.|...TextF|
|00001b30| 6f 6e 74 28 67 65 6e 65 | 76 61 29 3b 0d 09 09 09 |ont(gene|va);....|
|00001b40| 54 65 78 74 46 61 63 65 | 28 5b 5d 29 3b 0d 09 09 |TextFace|([]);...|
|00001b50| 09 54 65 78 74 53 69 7a | 65 28 4c 69 6e 65 53 69 |.TextSiz|e(LineSi|
|00001b60| 7a 65 29 3b 0d 09 09 09 | 69 66 20 48 61 73 53 74 |ze);....|if HasSt|
|00001b70| 79 6c 65 64 54 45 20 74 | 68 65 6e 0d 09 09 09 09 |yledTE t|hen.....|
|00001b80| 41 62 6f 75 74 54 45 48 | 61 6e 64 6c 65 20 3a 3d |AboutTEH|andle :=|
|00001b90| 20 54 45 53 74 79 6c 4e | 65 77 28 73 63 72 61 74 | TEStylN|ew(scrat|
|00001ba0| 63 68 52 65 63 74 2c 20 | 73 63 72 61 74 63 68 52 |chRect, |scratchR|
|00001bb0| 65 63 74 29 0d 09 09 09 | 65 6c 73 65 0d 09 09 09 |ect)....|else....|
|00001bc0| 09 41 62 6f 75 74 54 45 | 48 61 6e 64 6c 65 20 3a |.AboutTE|Handle :|
|00001bd0| 3d 20 54 45 4e 65 77 28 | 73 63 72 61 74 63 68 52 |= TENew(|scratchR|
|00001be0| 65 63 74 2c 20 73 63 72 | 61 74 63 68 52 65 63 74 |ect, scr|atchRect|
|00001bf0| 29 3b 0d 09 09 09 74 48 | 61 6e 64 6c 65 20 3a 3d |);....tH|andle :=|
|00001c00| 20 47 65 74 4e 61 6d 65 | 64 52 65 73 6f 75 72 63 | GetName|dResourc|
|00001c10| 65 28 27 54 45 58 54 27 | 2c 20 27 41 62 6f 75 74 |e('TEXT'|, 'About|
|00001c20| 27 29 3b 0d 09 09 09 69 | 66 20 28 54 48 61 6e 64 |');....i|f (THand|
|00001c30| 6c 65 20 3c 3e 20 6e 69 | 6c 29 20 74 68 65 6e 0d |le <> ni|l) then.|
|00001c40| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 48 |....begi|n......H|
|00001c50| 4c 6f 63 6b 28 54 48 61 | 6e 64 6c 65 29 3b 0d 09 |Lock(THa|ndle);..|
|00001c60| 09 09 09 09 69 66 20 48 | 61 73 53 74 79 6c 65 64 |....if H|asStyled|
|00001c70| 54 45 20 74 68 65 6e 0d | 09 09 09 09 09 09 54 45 |TE then.|......TE|
|00001c80| 53 74 79 6c 49 6e 73 65 | 72 74 28 54 48 61 6e 64 |StylInse|rt(THand|
|00001c90| 6c 65 5e 2c 20 47 65 74 | 48 61 6e 64 6c 65 53 69 |le^, Get|HandleSi|
|00001ca0| 7a 65 28 54 48 61 6e 64 | 6c 65 29 2c 20 73 74 53 |ze(THand|le), stS|
|00001cb0| 63 72 70 48 61 6e 64 6c | 65 28 47 65 74 4e 61 6d |crpHandl|e(GetNam|
|00001cc0| 65 64 52 65 73 6f 75 72 | 63 65 28 27 73 74 79 6c |edResour|ce('styl|
|00001cd0| 27 2c 20 27 41 62 6f 75 | 74 27 29 29 2c 20 41 62 |', 'Abou|t')), Ab|
|00001ce0| 6f 75 74 54 45 48 61 6e | 64 6c 65 29 0d 09 09 09 |outTEHan|dle)....|
|00001cf0| 09 09 65 6c 73 65 0d 09 | 09 09 09 09 09 54 45 53 |..else..|.....TES|
|00001d00| 65 74 54 65 78 74 28 54 | 48 61 6e 64 6c 65 5e 2c |etText(T|Handle^,|
|00001d10| 20 47 65 74 48 61 6e 64 | 6c 65 53 69 7a 65 28 54 | GetHand|leSize(T|
|00001d20| 48 61 6e 64 6c 65 29 2c | 20 41 62 6f 75 74 54 45 |Handle),| AboutTE|
|00001d30| 48 61 6e 64 6c 65 29 3b | 0d 09 09 09 09 09 54 45 |Handle);|......TE|
|00001d40| 53 65 74 53 65 6c 65 63 | 74 28 30 2c 20 30 2c 20 |SetSelec|t(0, 0, |
|00001d50| 41 62 6f 75 74 54 45 48 | 61 6e 64 6c 65 29 3b 0d |AboutTEH|andle);.|
|00001d60| 09 09 09 09 09 52 65 6c | 65 61 73 65 52 65 73 6f |.....Rel|easeReso|
|00001d70| 75 72 63 65 28 54 48 61 | 6e 64 6c 65 29 3b 0d 20 |urce(THa|ndle);. |
|00001d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 41 | | (* A|
|00001d90| 64 64 20 74 68 65 20 63 | 6f 6e 74 72 6f 6c 73 20 |dd the c|ontrols |
|00001da0| 2a 29 0d 09 09 09 09 09 | 53 65 74 57 52 65 66 43 |*)......|SetWRefC|
|00001db0| 6f 6e 28 41 62 6f 75 74 | 57 69 6e 64 6f 77 2c 20 |on(About|Window, |
|00001dc0| 41 62 6f 75 74 52 65 66 | 43 6f 6e 29 3b 0d 09 09 |AboutRef|Con);...|
|00001dd0| 09 09 09 73 63 72 61 74 | 63 68 43 6f 6e 74 72 6f |...scrat|chContro|
|00001de0| 6c 20 3a 3d 20 4e 65 77 | 43 6f 6e 74 72 6f 6c 28 |l := New|Control(|
|00001df0| 41 62 6f 75 74 57 69 6e | 64 6f 77 2c 20 73 63 72 |AboutWin|dow, scr|
|00001e00| 61 74 63 68 52 65 63 74 | 2c 20 27 27 2c 20 54 52 |atchRect|, '', TR|
|00001e10| 55 45 2c 20 30 2c 20 30 | 2c 20 30 2c 20 31 36 2c |UE, 0, 0|, 0, 16,|
|00001e20| 20 76 53 63 72 6f 6c 6c | 52 65 66 29 3b 0d 0d 09 | vScroll|Ref);...|
|00001e30| 09 09 09 09 41 64 6a 75 | 73 74 41 62 6f 75 74 57 |....Adju|stAboutW|
|00001e40| 69 6e 64 6f 77 3b 0d 09 | 09 09 09 09 53 68 6f 77 |indow;..|....Show|
|00001e50| 57 69 6e 64 6f 77 28 41 | 62 6f 75 74 57 69 6e 64 |Window(A|boutWind|
|00001e60| 6f 77 29 3b 0d 09 09 09 | 09 65 6e 64 0d 09 09 09 |ow);....|.end....|
|00001e70| 65 6c 73 65 0d 09 09 09 | 09 62 65 67 69 6e 0d 09 |else....|.begin..|
|00001e80| 09 09 09 09 44 69 73 70 | 6f 73 65 57 69 6e 64 6f |....Disp|oseWindo|
|00001e90| 77 28 41 62 6f 75 74 57 | 69 6e 64 6f 77 29 3b 0d |w(AboutW|indow);.|
|00001ea0| 09 09 09 09 09 54 45 44 | 69 73 70 6f 73 65 28 41 |.....TED|ispose(A|
|00001eb0| 62 6f 75 74 54 45 48 61 | 6e 64 6c 65 29 3b 0d 09 |boutTEHa|ndle);..|
|00001ec0| 09 09 09 09 41 62 6f 75 | 74 57 69 6e 64 6f 77 20 |....Abou|tWindow |
|00001ed0| 3a 3d 20 6e 69 6c 3b 0d | 09 09 09 09 65 6e 64 3b |:= nil;.|....end;|
|00001ee0| 0d 09 09 65 6e 64 3b 20 | 28 2a 20 47 65 74 41 62 |...end; |(* GetAb|
|00001ef0| 6f 75 74 57 69 6e 64 6f | 77 54 65 78 74 20 2a 29 |outWindo|wText *)|
|00001f00| 0d 0d 09 62 65 67 69 6e | 0d 09 09 69 66 20 28 41 |...begin|...if (A|
|00001f10| 62 6f 75 74 57 69 6e 64 | 6f 77 20 3c 3e 20 6e 69 |boutWind|ow <> ni|
|00001f20| 6c 29 20 74 68 65 6e 0d | 09 09 09 53 65 6c 65 63 |l) then.|...Selec|
|00001f30| 74 57 69 6e 64 6f 77 28 | 41 62 6f 75 74 57 69 6e |tWindow(|AboutWin|
|00001f40| 64 6f 77 29 0d 09 09 65 | 6c 73 65 0d 09 09 09 62 |dow)...e|lse....b|
|00001f50| 65 67 69 6e 0d 09 09 09 | 09 41 62 6f 75 74 57 69 |egin....|.AboutWi|
|00001f60| 6e 64 6f 77 20 3a 3d 20 | 47 65 74 4e 65 77 57 69 |ndow := |GetNewWi|
|00001f70| 6e 64 6f 77 28 6b 41 62 | 6f 75 74 57 69 6e 64 6f |ndow(kAb|outWindo|
|00001f80| 77 49 44 2c 20 6e 69 6c | 2c 20 57 69 6e 64 6f 77 |wID, nil|, Window|
|00001f90| 50 74 72 28 2d 31 29 29 | 3b 0d 09 09 09 09 69 66 |Ptr(-1))|;.....if|
|00001fa0| 20 28 41 62 6f 75 74 57 | 69 6e 64 6f 77 20 3c 3e | (AboutW|indow <>|
|00001fb0| 20 6e 69 6c 29 20 74 68 | 65 6e 0d 09 09 09 09 09 | nil) th|en......|
|00001fc0| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 53 65 74 50 |begin...|....SetP|
|00001fd0| 6f 72 74 28 41 62 6f 75 | 74 57 69 6e 64 6f 77 29 |ort(Abou|tWindow)|
|00001fe0| 3b 0d 09 09 09 09 09 09 | 47 65 74 41 62 6f 75 74 |;.......|GetAbout|
|00001ff0| 57 69 6e 64 6f 77 54 65 | 78 74 3b 0d 09 09 09 09 |WindowTe|xt;.....|
|00002000| 09 65 6e 64 3b 0d 09 09 | 09 65 6e 64 3b 0d 09 65 |.end;...|.end;..e|
|00002010| 6e 64 3b 20 28 2a 20 4f | 70 65 6e 41 62 6f 75 74 |nd; (* O|penAbout|
|00002020| 57 69 6e 64 6f 77 20 2a | 29 0d 0d 09 66 75 6e 63 |Window *|)...func|
|00002030| 74 69 6f 6e 20 43 6c 6f | 73 65 49 66 41 62 6f 75 |tion Clo|seIfAbou|
|00002040| 74 57 69 6e 64 6f 77 20 | 28 77 68 69 63 68 57 69 |tWindow |(whichWi|
|00002050| 6e 64 6f 77 3a 20 57 69 | 6e 64 6f 77 50 74 72 29 |ndow: Wi|ndowPtr)|
|00002060| 3a 20 42 6f 6f 6c 65 61 | 6e 3b 0d 09 62 65 67 69 |: Boolea|n;..begi|
|00002070| 6e 0d 09 09 69 66 20 28 | 77 68 69 63 68 57 69 6e |n...if (|whichWin|
|00002080| 64 6f 77 20 3d 20 41 62 | 6f 75 74 57 69 6e 64 6f |dow = Ab|outWindo|
|00002090| 77 29 20 61 6e 64 20 28 | 41 62 6f 75 74 57 69 6e |w) and (|AboutWin|
|000020a0| 64 6f 77 20 3c 3e 20 6e | 69 6c 29 20 74 68 65 6e |dow <> n|il) then|
|000020b0| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 48 69 |....begi|n.....Hi|
|000020c0| 64 65 57 69 6e 64 6f 77 | 28 41 62 6f 75 74 57 69 |deWindow|(AboutWi|
|000020d0| 6e 64 6f 77 29 3b 0d 09 | 09 09 09 54 45 44 69 73 |ndow);..|...TEDis|
|000020e0| 70 6f 73 65 28 41 62 6f | 75 74 54 45 48 61 6e 64 |pose(Abo|utTEHand|
|000020f0| 6c 65 29 3b 0d 09 09 09 | 09 41 62 6f 75 74 54 45 |le);....|.AboutTE|
|00002100| 48 61 6e 64 6c 65 20 3a | 3d 20 6e 69 6c 3b 0d 09 |Handle :|= nil;..|
|00002110| 09 09 09 44 69 73 70 6f | 73 65 43 6f 6e 74 72 6f |...Dispo|seContro|
|00002120| 6c 28 57 69 6e 64 6f 77 | 50 65 65 6b 28 41 62 6f |l(Window|Peek(Abo|
|00002130| 75 74 57 69 6e 64 6f 77 | 29 5e 2e 43 6f 6e 74 72 |utWindow|)^.Contr|
|00002140| 6f 6c 4c 69 73 74 29 3b | 0d 09 09 09 09 44 69 73 |olList);|.....Dis|
|00002150| 70 6f 73 65 57 69 6e 64 | 6f 77 28 41 62 6f 75 74 |poseWind|ow(About|
|00002160| 57 69 6e 64 6f 77 29 3b | 0d 09 09 09 09 41 62 6f |Window);|.....Abo|
|00002170| 75 74 57 69 6e 64 6f 77 | 20 3a 3d 20 6e 69 6c 3b |utWindow| := nil;|
|00002180| 0d 09 09 09 09 43 6c 6f | 73 65 49 66 41 62 6f 75 |.....Clo|seIfAbou|
|00002190| 74 57 69 6e 64 6f 77 20 | 3a 3d 20 54 52 55 45 3b |tWindow |:= TRUE;|
|000021a0| 0d 09 09 09 65 6e 64 0d | 09 09 65 6c 73 65 0d 09 |....end.|..else..|
|000021b0| 09 09 43 6c 6f 73 65 49 | 66 41 62 6f 75 74 57 69 |..CloseI|fAboutWi|
|000021c0| 6e 64 6f 77 20 3a 3d 20 | 46 41 4c 53 45 3b 0d 09 |ndow := |FALSE;..|
|000021d0| 65 6e 64 3b 20 28 2a 20 | 43 6c 6f 73 65 41 62 6f |end; (* |CloseAbo|
|000021e0| 75 74 57 69 6e 64 6f 77 | 20 2a 29 0d 0d 0d 09 66 |utWindow| *)....f|
|000021f0| 75 6e 63 74 69 6f 6e 20 | 41 62 6f 75 74 45 76 65 |unction |AboutEve|
|00002200| 6e 74 50 72 6f 63 20 28 | 74 68 65 45 76 65 6e 74 |ntProc (|theEvent|
|00002210| 3a 20 45 76 65 6e 74 52 | 65 63 6f 72 64 29 3a 20 |: EventR|ecord): |
|00002220| 42 6f 6f 6c 65 61 6e 3b | 0d 20 20 20 28 2a 20 54 |Boolean;|. (* T|
|00002230| 68 69 73 20 72 65 74 75 | 72 6e 73 20 54 52 55 45 |his retu|rns TRUE|
|00002240| 20 69 66 20 69 74 20 68 | 61 6e 64 6c 65 64 20 74 | if it h|andled t|
|00002250| 68 65 20 65 76 65 6e 74 | 2c 20 46 41 4c 53 45 20 |he event|, FALSE |
|00002260| 6f 74 68 65 72 77 69 73 | 65 20 2a 29 0d 20 20 20 |otherwis|e *). |
|00002270| 28 2a 20 28 49 74 20 68 | 61 6e 64 6c 65 73 20 4e |(* (It h|andles N|
|00002280| 75 6c 6c 20 65 76 65 6e | 74 73 20 28 72 65 74 75 |ull even|ts (retu|
|00002290| 72 6e 69 6e 67 20 46 41 | 4c 53 45 20 73 6f 20 79 |rning FA|LSE so y|
|000022a0| 6f 75 20 63 61 6e 20 74 | 61 6b 65 20 73 6f 6d 65 |ou can t|ake some|
|000022b0| 20 74 69 6d 65 29 2c 20 | 55 70 64 61 74 65 2c 20 | time), |Update, |
|000022c0| 41 63 74 69 76 61 74 65 | 2c 20 2a 29 0d 20 20 20 |Activate|, *). |
|000022d0| 28 2a 20 20 4d 6f 75 73 | 65 44 6f 77 6e 73 20 69 |(* Mous|eDowns i|
|000022e0| 6e 20 43 6f 6e 74 65 6e | 74 2c 20 47 72 6f 77 2c |n Conten|t, Grow,|
|000022f0| 20 5a 6f 6f 6d 2c 20 61 | 6e 64 20 47 6f 41 77 61 | Zoom, a|nd GoAwa|
|00002300| 79 20 2d 2d 20 72 65 74 | 75 72 6e 69 6e 67 20 54 |y -- ret|urning T|
|00002310| 52 55 45 2e 20 59 6f 75 | 20 68 61 76 65 20 74 6f |RUE. You| have to|
|00002320| 20 68 61 6e 64 6c 65 20 | 2a 29 0d 20 20 20 28 2a | handle |*). (*|
|00002330| 20 65 76 65 72 79 74 68 | 69 6e 67 20 65 6c 73 65 | everyth|ing else|
|00002340| 20 28 69 2e 65 2e 20 77 | 72 69 74 65 20 61 20 73 | (i.e. w|rite a s|
|00002350| 74 61 6e 64 61 72 64 20 | 6d 61 69 6e 20 65 76 65 |tandard |main eve|
|00002360| 6e 74 20 6c 6f 6f 70 29 | 20 2a 29 0d 0d 09 09 76 |nt loop)| *)....v|
|00002370| 61 72 0d 09 09 09 72 65 | 73 75 6c 74 3a 20 42 6f |ar....re|sult: Bo|
|00002380| 6f 6c 65 61 6e 3b 0d 09 | 09 09 6c 6f 63 61 74 69 |olean;..|..locati|
|00002390| 6f 6e 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 09 09 |on: INTE|GER;....|
|000023a0| 77 68 69 63 68 57 69 6e | 64 6f 77 3a 20 57 69 6e |whichWin|dow: Win|
|000023b0| 64 6f 77 50 74 72 3b 0d | 09 09 09 73 69 7a 65 4c |dowPtr;.|...sizeL|
|000023c0| 69 6d 69 74 73 3a 20 52 | 65 63 74 3b 0d 09 09 09 |imits: R|ect;....|
|000023d0| 6e 65 77 53 69 7a 65 3a | 20 4c 4f 4e 47 49 4e 54 |newSize:| LONGINT|
|000023e0| 3b 0d 0d 09 62 65 67 69 | 6e 0d 09 09 72 65 73 75 |;...begi|n...resu|
|000023f0| 6c 74 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 09 69 |lt := FA|LSE;...i|
|00002400| 66 20 28 41 62 6f 75 74 | 57 69 6e 64 6f 77 20 3c |f (About|Window <|
|00002410| 3e 20 6e 69 6c 29 20 74 | 68 65 6e 0d 09 09 09 63 |> nil) t|hen....c|
|00002420| 61 73 65 20 74 68 65 45 | 76 65 6e 74 2e 77 68 61 |ase theE|vent.wha|
|00002430| 74 20 6f 66 0d 09 09 09 | 09 6e 75 6c 6c 45 76 65 |t of....|.nullEve|
|00002440| 6e 74 3a 20 0d 09 09 09 | 09 09 69 66 20 28 46 72 |nt: ....|..if (Fr|
|00002450| 6f 6e 74 57 69 6e 64 6f | 77 20 3d 20 41 62 6f 75 |ontWindo|w = Abou|
|00002460| 74 57 69 6e 64 6f 77 29 | 20 74 68 65 6e 0d 09 09 |tWindow)| then...|
|00002470| 09 09 09 09 54 45 49 64 | 6c 65 28 41 62 6f 75 74 |....TEId|le(About|
|00002480| 54 45 48 61 6e 64 6c 65 | 29 3b 0d 20 20 20 20 20 |TEHandle|);. |
|00002490| 20 20 20 20 20 20 20 20 | 20 28 2a 20 72 65 73 75 | | (* resu|
|000024a0| 6c 74 20 3a 3d 20 46 41 | 4c 53 45 20 2a 29 0d 0d |lt := FA|LSE *)..|
|000024b0| 09 09 09 09 6d 6f 75 73 | 65 44 6f 77 6e 3a 20 0d |....mous|eDown: .|
|000024c0| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|000024d0| 09 6c 6f 63 61 74 69 6f | 6e 20 3a 3d 20 46 69 6e |.locatio|n := Fin|
|000024e0| 64 57 69 6e 64 6f 77 28 | 74 68 65 45 76 65 6e 74 |dWindow(|theEvent|
|000024f0| 2e 77 68 65 72 65 2c 20 | 77 68 69 63 68 57 69 6e |.where, |whichWin|
|00002500| 64 6f 77 29 3b 0d 09 09 | 09 09 09 09 69 66 20 28 |dow);...|....if (|
|00002510| 77 68 69 63 68 57 69 6e | 64 6f 77 20 3d 20 41 62 |whichWin|dow = Ab|
|00002520| 6f 75 74 57 69 6e 64 6f | 77 29 20 74 68 65 6e 0d |outWindo|w) then.|
|00002530| 09 09 09 09 09 09 09 63 | 61 73 65 20 6c 6f 63 61 |.......c|ase loca|
|00002540| 74 69 6f 6e 20 6f 66 0d | 09 09 09 09 09 09 09 09 |tion of.|........|
|00002550| 69 6e 43 6f 6e 74 65 6e | 74 3a 20 0d 09 09 09 09 |inConten|t: .....|
|00002560| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00002570| 09 09 09 09 09 44 6f 4d | 6f 75 73 65 49 6e 41 62 |.....DoM|ouseInAb|
|00002580| 6f 75 74 28 74 68 65 45 | 76 65 6e 74 29 3b 0d 09 |out(theE|vent);..|
|00002590| 09 09 09 09 09 09 09 09 | 09 72 65 73 75 6c 74 20 |........|.result |
|000025a0| 3a 3d 20 54 52 55 45 3b | 0d 09 09 09 09 09 09 09 |:= TRUE;|........|
|000025b0| 09 09 65 6e 64 3b 0d 0d | 09 09 09 09 09 09 09 09 |..end;..|........|
|000025c0| 69 6e 47 6f 41 77 61 79 | 3a 20 0d 09 09 09 09 09 |inGoAway|: ......|
|000025d0| 09 09 09 09 69 66 20 54 | 72 61 63 6b 47 6f 41 77 |....if T|rackGoAw|
|000025e0| 61 79 28 41 62 6f 75 74 | 57 69 6e 64 6f 77 2c 20 |ay(About|Window, |
|000025f0| 74 68 65 45 76 65 6e 74 | 2e 77 68 65 72 65 29 20 |theEvent|.where) |
|00002600| 74 68 65 6e 0d 09 09 09 | 09 09 09 09 09 09 09 62 |then....|.......b|
|00002610| 65 67 69 6e 0d 09 09 09 | 09 09 09 09 09 09 09 09 |egin....|........|
|00002620| 72 65 73 75 6c 74 20 3a | 3d 20 43 6c 6f 73 65 49 |result :|= CloseI|
|00002630| 66 41 62 6f 75 74 57 69 | 6e 64 6f 77 28 77 68 69 |fAboutWi|ndow(whi|
|00002640| 63 68 57 69 6e 64 6f 77 | 29 3b 0d 09 09 09 09 09 |chWindow|);......|
|00002650| 09 09 09 09 09 65 6e 64 | 3b 0d 0d 09 09 09 09 09 |.....end|;.......|
|00002660| 09 09 09 69 6e 47 72 6f | 77 3a 20 0d 09 09 09 09 |...inGro|w: .....|
|00002670| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00002680| 09 09 09 09 09 73 69 7a | 65 4c 69 6d 69 74 73 20 |.....siz|eLimits |
|00002690| 3a 3d 20 53 63 72 65 65 | 6e 42 69 74 73 2e 62 6f |:= Scree|nBits.bo|
|000026a0| 75 6e 64 73 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |unds;...|........|
|000026b0| 49 6e 73 65 74 52 65 63 | 74 28 73 69 7a 65 4c 69 |InsetRec|t(sizeLi|
|000026c0| 6d 69 74 73 2c 20 33 32 | 2c 20 33 32 29 3b 0d 09 |mits, 32|, 32);..|
|000026d0| 09 09 09 09 09 09 09 09 | 09 6e 65 77 53 69 7a 65 |........|.newSize|
|000026e0| 20 3a 3d 20 47 72 6f 77 | 57 69 6e 64 6f 77 28 41 | := Grow|Window(A|
|000026f0| 62 6f 75 74 57 69 6e 64 | 6f 77 2c 20 74 68 65 45 |boutWind|ow, theE|
|00002700| 76 65 6e 74 2e 77 68 65 | 72 65 2c 20 73 69 7a 65 |vent.whe|re, size|
|00002710| 4c 69 6d 69 74 73 29 3b | 0d 09 09 09 09 09 09 09 |Limits);|........|
|00002720| 09 09 09 69 66 20 28 6e | 65 77 53 69 7a 65 20 3c |...if (n|ewSize <|
|00002730| 3e 20 30 29 20 74 68 65 | 6e 0d 09 09 09 09 09 09 |> 0) the|n.......|
|00002740| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00002750| 09 09 09 09 09 09 09 53 | 69 7a 65 57 69 6e 64 6f |.......S|izeWindo|
|00002760| 77 28 41 62 6f 75 74 57 | 69 6e 64 6f 77 2c 20 4c |w(AboutW|indow, L|
|00002770| 6f 57 6f 72 64 28 6e 65 | 77 53 69 7a 65 29 2c 20 |oWord(ne|wSize), |
|00002780| 48 69 57 6f 72 64 28 6e | 65 77 53 69 7a 65 29 2c |HiWord(n|ewSize),|
|00002790| 20 46 41 4c 53 45 29 3b | 0d 09 09 09 09 09 09 09 | FALSE);|........|
|000027a0| 09 09 09 09 09 49 6e 76 | 61 6c 52 65 63 74 28 41 |.....Inv|alRect(A|
|000027b0| 62 6f 75 74 57 69 6e 64 | 6f 77 5e 2e 70 6f 72 74 |boutWind|ow^.port|
|000027c0| 52 65 63 74 29 3b 0d 09 | 09 09 09 09 09 09 09 09 |Rect);..|........|
|000027d0| 09 09 09 41 64 6a 75 73 | 74 41 62 6f 75 74 57 69 |...Adjus|tAboutWi|
|000027e0| 6e 64 6f 77 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |ndow;...|........|
|000027f0| 09 09 55 70 64 61 74 65 | 41 62 6f 75 74 57 69 6e |..Update|AboutWin|
|00002800| 64 6f 77 28 41 62 6f 75 | 74 57 69 6e 64 6f 77 29 |dow(Abou|tWindow)|
|00002810| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 72 65 |;.......|......re|
|00002820| 73 75 6c 74 20 3a 3d 20 | 54 52 55 45 3b 0d 09 09 |sult := |TRUE;...|
|00002830| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |........|.end;...|
|00002840| 09 09 09 09 09 09 09 65 | 6e 64 3b 0d 0d 09 09 09 |.......e|nd;.....|
|00002850| 09 09 09 09 09 69 6e 5a | 6f 6f 6d 49 6e 2c 20 69 |.....inZ|oomIn, i|
|00002860| 6e 5a 6f 6f 6d 4f 75 74 | 3a 20 0d 09 09 09 09 09 |nZoomOut|: ......|
|00002870| 09 09 09 09 69 66 20 54 | 72 61 63 6b 42 6f 78 28 |....if T|rackBox(|
|00002880| 41 62 6f 75 74 57 69 6e | 64 6f 77 2c 20 74 68 65 |AboutWin|dow, the|
|00002890| 45 76 65 6e 74 2e 77 68 | 65 72 65 2c 20 6c 6f 63 |Event.wh|ere, loc|
|000028a0| 61 74 69 6f 6e 29 20 74 | 68 65 6e 0d 09 09 09 09 |ation) t|hen.....|
|000028b0| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|000028c0| 09 09 09 09 09 09 09 5a | 6f 6f 6d 57 69 6e 64 6f |.......Z|oomWindo|
|000028d0| 77 28 41 62 6f 75 74 57 | 69 6e 64 6f 77 2c 20 6c |w(AboutW|indow, l|
|000028e0| 6f 63 61 74 69 6f 6e 2c | 20 46 41 4c 53 45 29 3b |ocation,| FALSE);|
|000028f0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 49 6e 76 61 |........|....Inva|
|00002900| 6c 52 65 63 74 28 41 62 | 6f 75 74 57 69 6e 64 6f |lRect(Ab|outWindo|
|00002910| 77 5e 2e 70 6f 72 74 52 | 65 63 74 29 3b 0d 09 09 |w^.portR|ect);...|
|00002920| 09 09 09 09 09 09 09 09 | 09 41 64 6a 75 73 74 41 |........|.AdjustA|
|00002930| 62 6f 75 74 57 69 6e 64 | 6f 77 3b 0d 09 09 09 09 |boutWind|ow;.....|
|00002940| 09 09 09 09 09 09 09 55 | 70 64 61 74 65 41 62 6f |.......U|pdateAbo|
|00002950| 75 74 57 69 6e 64 6f 77 | 28 41 62 6f 75 74 57 69 |utWindow|(AboutWi|
|00002960| 6e 64 6f 77 29 3b 0d 09 | 09 09 09 09 09 09 09 09 |ndow);..|........|
|00002970| 09 09 72 65 73 75 6c 74 | 20 3a 3d 20 54 52 55 45 |..result| := TRUE|
|00002980| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 65 6e 64 3b |;.......|....end;|
|00002990| 0d 0d 09 09 09 09 09 09 | 09 65 6e 64 3b 20 28 2a |........|.end; (*|
|000029a0| 20 49 46 20 2e 2e 2e 20 | 2f 20 43 41 53 45 20 6c | IF ... |/ CASE l|
|000029b0| 6f 63 61 74 69 6f 6e 20 | 4f 46 20 2a 29 0d 09 09 |ocation |OF *)...|
|000029c0| 09 09 09 65 6e 64 3b 20 | 28 2a 20 43 41 53 45 20 |...end; |(* CASE |
|000029d0| 6d 6f 75 73 65 44 6f 77 | 6e 20 2a 29 0d 0d 09 09 |mouseDow|n *)....|
|000029e0| 09 09 55 70 64 61 74 65 | 45 76 74 3a 20 0d 09 09 |..Update|Evt: ...|
|000029f0| 09 09 09 69 66 20 28 57 | 69 6e 64 6f 77 50 74 72 |...if (W|indowPtr|
|00002a00| 28 74 68 65 45 76 65 6e | 74 2e 6d 65 73 73 61 67 |(theEven|t.messag|
|00002a10| 65 29 20 3d 20 41 62 6f | 75 74 57 69 6e 64 6f 77 |e) = Abo|utWindow|
|00002a20| 29 20 74 68 65 6e 0d 09 | 09 09 09 09 09 62 65 67 |) then..|.....beg|
|00002a30| 69 6e 0d 09 09 09 09 09 | 09 09 55 70 64 61 74 65 |in......|..Update|
|00002a40| 41 62 6f 75 74 57 69 6e | 64 6f 77 28 41 62 6f 75 |AboutWin|dow(Abou|
|00002a50| 74 57 69 6e 64 6f 77 29 | 3b 0d 09 09 09 09 09 09 |tWindow)|;.......|
|00002a60| 09 72 65 73 75 6c 74 20 | 3a 3d 20 54 52 55 45 3b |.result |:= TRUE;|
|00002a70| 0d 09 09 09 09 09 09 65 | 6e 64 3b 20 28 2a 20 49 |.......e|nd; (* I|
|00002a80| 46 20 2a 29 0d 0d 09 09 | 09 09 41 63 74 69 76 61 |F *)....|..Activa|
|00002a90| 74 65 45 76 74 3a 20 0d | 09 09 09 09 09 69 66 20 |teEvt: .|.....if |
|00002aa0| 28 57 69 6e 64 6f 77 50 | 74 72 28 74 68 65 45 76 |(WindowP|tr(theEv|
|00002ab0| 65 6e 74 2e 6d 65 73 73 | 61 67 65 29 20 3d 20 41 |ent.mess|age) = A|
|00002ac0| 62 6f 75 74 57 69 6e 64 | 6f 77 29 20 74 68 65 6e |boutWind|ow) then|
|00002ad0| 0d 09 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |.......b|egin....|
|00002ae0| 09 09 09 09 41 63 74 69 | 76 61 74 65 41 62 6f 75 |....Acti|vateAbou|
|00002af0| 74 57 69 6e 64 6f 77 28 | 74 68 65 45 76 65 6e 74 |tWindow(|theEvent|
|00002b00| 29 3b 0d 09 09 09 09 09 | 09 09 72 65 73 75 6c 74 |);......|..result|
|00002b10| 20 3a 3d 20 54 52 55 45 | 3b 0d 09 09 09 09 09 09 | := TRUE|;.......|
|00002b20| 65 6e 64 3b 20 28 2a 20 | 49 46 20 2a 29 0d 0d 09 |end; (* |IF *)...|
|00002b30| 09 09 65 6e 64 3b 20 28 | 2a 20 43 41 53 45 20 2a |..end; (|* CASE *|
|00002b40| 29 0d 09 09 41 62 6f 75 | 74 45 76 65 6e 74 50 72 |)...Abou|tEventPr|
|00002b50| 6f 63 20 3a 3d 20 72 65 | 73 75 6c 74 3b 0d 09 65 |oc := re|sult;..e|
|00002b60| 6e 64 3b 20 28 2a 20 41 | 62 6f 75 74 45 76 65 6e |nd; (* A|boutEven|
|00002b70| 74 50 72 6f 63 20 2a 29 | 0d 0d 65 6e 64 2e 00 00 |tProc *)|..end...|
|00002b80| 00 00 01 00 00 00 09 da | 00 00 08 da 00 00 00 91 |........|........|
|00002b90| 6e 64 6f 77 20 3c 3e 20 | 6e 69 6c 29 20 74 68 65 |ndow <> |nil) the|
|00002ba0| 6e 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 48 |n....beg|in.....H|
|00002bb0| 0e 55 41 62 6f 75 74 57 | 69 6e 64 6f 77 2e 70 6e |.UAboutW|indow.pn|
|00002bc0| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 00 40 |....TEXT|MPS ...@|
|00002bd0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 40 01 00 |..TEXTMP|S ...@..|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 a0 e0 d2 4d 00 00 | 2a fe 00 00 0a 6b 3b 0d |.....M..|*....k;.|
|00002c00| 09 09 09 09 44 69 73 70 | 6f 73 65 43 6f 6e 74 72 |....Disp|oseContr|
|00002c10| 6f 6c 28 57 69 6e 64 6f | 77 50 65 65 6b 28 41 62 |ol(Windo|wPeek(Ab|
|00002c20| 6f 75 74 57 69 6e 64 6f | 77 29 5e 2e 43 6f 6e 74 |outWindo|w)^.Cont|
|00002c30| 72 6f 6c 4c 69 73 74 29 | 3b 0d 09 09 09 09 44 69 |rolList)|;.....Di|
|00002c40| 73 70 6f 73 65 57 69 6e | 64 6f 77 28 41 62 6f 75 |sposeWin|dow(Abou|
|00002c50| 74 57 69 6e 64 6f 77 29 | 3b 0d 09 09 09 09 41 62 |tWindow)|;.....Ab|
|00002c60| 6f 75 74 57 69 6e 64 6f | 77 20 3a 3d 20 6e 69 6c |outWindo|w := nil|
|00002c70| 3b 0d 09 09 09 09 43 6c | 6f 73 65 49 66 41 62 6f |;.....Cl|oseIfAbo|
|00002c80| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 00 14 |...H..Co|urier...|
|00002c90| 00 01 a5 98 00 0a 00 03 | 00 27 00 0f 00 3a 00 34 |........|.'...:.4|
|00002ca0| 00 00 00 14 00 01 00 06 | 00 04 00 50 00 20 03 63 |........|...P. .c|
|00002cb0| 04 3d 00 50 00 20 03 63 | 04 3d a1 ec e1 ca 00 00 |.=.P. .c|.=......|
|00002cc0| 00 1d 00 00 00 1d 00 00 | 00 00 01 00 00 00 01 ba |........|........|
|00002cd0| 00 18 ed f8 3d 08 08 1b | 2d 40 ff f8 ff ff ff ff |....=...|-@......|
|00002ce0| 01 00 00 32 00 23 18 ba | 00 00 00 00 01 00 06 f8 |...2.#..|........|
|00002cf0| 00 00 00 04 01 00 01 ba | 00 00 00 00 a2 88 05 a5 |........|........|
|00002d00| 00 2d 00 36 bf 07 b1 07 | 08 20 0c 47 00 15 01 00 |.-.6....|. .G....|
|00002d10| 00 f2 01 00 00 5a ff ff | ff ff 00 00 00 10 01 00 |.....Z..|........|
|00002d20| 00 6e 00 00 04 d2 4e ad | 09 e2 00 01 bf 07 b1 07 |.n....N.|........|
|00002d30| 08 24 04 d2 4e ad ff ff | ff ff 01 00 00 8a ff ff |.$..N...|........|
|00002d40| ff ff 0f 00 19 94 01 00 | 02 00 3f fc ff ff 00 00 |........|..?.....|
|00002d50| ff ff ff fc 00 16 00 00 | 00 82 00 8f a2 a0 bf 09 |........|........|
|00002d60| 08 28 60 40 b7 fc ff ff | ff ff 01 00 00 be ff ff |.(`@....|........|
|00002d70| ff ff 00 00 01 82 01 00 | 04 01 00 01 ff ff ff ff |........|........|
|00002d80| 01 82 00 08 ff ff 00 00 | 00 00 00 00 00 00 00 2e |........|........|
|00002d90| 9c 82 bf 09 08 2e 2d 6e | ff fc ff ff ff ff ff ff |......-n|........|
|00002da0| ff ff ff ff ff ff 00 00 | 01 82 01 00 04 01 00 01 |........|........|
|00002db0| ff ff ff ff 01 65 00 08 | ff ff 00 00 00 00 00 00 |.....e..|........|
|00002dc0| 00 00 00 00 d4 1b 02 0b | 08 34 64 54 00 06 ff ff |........|.4dT....|
|00002dd0| ff ff 01 00 01 56 ff ff | ff ff 00 00 00 98 01 00 |.....V..|........|
|00002de0| 05 01 00 01 01 00 01 26 | 01 49 00 0c ff ff 00 00 |.......&|.I......|
|00002df0| 00 00 00 00 00 00 00 4f | f7 ca 57 07 08 3c 00 01 |.......O|..W..<..|
|00002e00| 2d 00 ff ff ff ff ff ff | ff ff ff ff ff ff 0f 00 |-.......|........|
|00002e10| 19 94 01 00 02 00 0e 4d | ff ff 00 02 00 00 00 08 |.......M|........|
|00002e20| 00 16 00 00 01 47 00 00 | bf 07 b1 08 08 40 50 72 |.....G..|.....@Pr|
|00002e30| 6f 6a ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |oj......|........|
|00002e40| 00 98 01 00 05 01 00 01 | 01 00 01 8a 01 76 00 0c |........|.....v..|
|00002e50| ff ff 00 00 00 10 00 00 | 00 00 00 41 0f 20 1d 02 |........|...A. ..|
|00002e60| 8f ff 00 00 00 00 ff ff | ff ff ff ff ff ff ff ff |........|........|
|00002e70| ff ff 0e 00 08 16 01 00 | 02 00 04 54 ff ff 00 02 |........|...T....|
|00002e80| ff ff ff f0 00 16 00 00 | 01 f4 00 00 00 2a 8f 68 |........|.....*.h|
|00002e90| b6 7d ff 20 cd 1a ff ed | 16 cf bf 07 b1 ed 16 cf |.}. ....|........|
|00002ea0| bf 07 b1 ed 16 cf bf 65 | f8 3d 8f 68 b6 7d ff 3d |.......e|.=.h.}.=|
|00002eb0| a2 d9 f7 0e 81 46 48 eb | 00 00 01 00 00 00 10 1c |.....FH.|........|
|00002ec0| 2e 00 41 ed fb dc 52 88 | 70 04 c0 30 78 00 66 da |..A...R.|p..0x.f.|
|00002ed0| 4a 86 66 06 2c 3c 7f ff | ff ff 28 07 70 6c b0 84 |J.f.,<..|..(.pl..|
|00002ee0| 67 12 70 6d b0 84 67 0c | 70 4c b0 84 67 06 70 68 |g.pm..g.|pL..g.ph|
|00002ef0| b0 84 66 06 70 00 10 1c | 2e 00 4a 87 67 18 70 5b |..f.p...|..J.g.p[|
|00002f00| b0 87 66 18 48 6e fe f8 | 2f 0c 4e ba fd b8 28 40 |..f.Hn..|/.N...(@|
|00002f10| 20 0c 50 8f 66 06 70 ff | 60 00 01 38 41 ed fb dc | .P.f.p.|`..8A...|
|00002f20| 52 88 70 01 c0 30 78 00 | 67 0a 70 50 b0 87 67 04 |R.p..0x.|g.pP..g.|
|00002f30| 70 e0 9e 80 70 63 b0 87 | 67 50 70 5b b0 87 67 4a |p...pc..|gPp[..gJ|
|00002f40| 41 ed fb dc 52 88 52 ad | ff ae 53 93 4a 93 6d 0e |A...R.R.|..S.J.m.|
|00002f50| 22 6b 00 04 52 ab 00 04 | 70 00 10 11 60 0c 2f 08 |"k..R...|p...`./.|
|00002f60| 2f 0b 4e ba 01 b6 58 8f | 20 5f 2a 00 70 08 c0 30 |/.N...X.| _*.p..0|
|00002f70| 58 00 66 cc 53 ad ff ae | 2f 0b 2f 05 4e ba 0e d6 |X.f.S...|/./.N...|
|00002f80| 72 ff b2 80 50 8f 67 00 | 00 bc 70 01 72 63 b2 87 |r...P.g.|..p.rc..|
|00002f90| 67 14 72 73 b2 87 67 0e | 72 5b b2 87 67 08 72 50 |g.rs..g.|r[..g.rP|
|00002fa0| b2 87 67 02 70 00 4a 80 | 67 1c 48 6e 00 10 2f 0b |..g.p.J.|g.Hn../.|
|00002fb0| 48 6e fe f8 2f 06 2f 07 | 2f 2e ff fc 00 00 05 9a |Hn.././.|/.......|
|00002fc0| 9f cd fc 6a a2 88 05 a5 | 08 1b ff ff ff ff 4a 85 |...j....|......J.|
|00002fd0| 0a 01 00 00 00 00 01 00 | 00 01 01 00 00 11 00 20 |........|....... |
|00002fe0| a4 36 00 20 bb 6a 00 06 | 6a 65 63 74 17 53 74 61 |.6. .j..|ject.Sta|
|00002ff0| 6e 64 61 72 64 20 50 61 | 73 63 61 6c 20 53 79 6d |ndard Pa|scal Sym|
|00003000| 62 6f 6c 73 00 00 00 00 | 0f 43 6f 6d 70 61 72 65 |bols....|.Compare|
|00003010| 20 41 63 74 69 76 65 c9 | 00 00 00 00 0d 4d 65 72 | Active.|.....Mer|
|00003020| 67 65 20 41 63 74 69 76 | 65 c9 00 00 00 23 1c 70 |ge Activ|e....#.p|
|00003030| 00 23 1e 2a 00 0a a2 88 | 05 a5 0c 55 41 42 4f 55 |.#.*....|...UABOU|
|00003040| 54 57 49 4e 44 4f 57 18 | 00 20 ee 40 00 23 1d c6 |TWINDOW.|. .@.#..|
|00003050| 00 20 a7 30 00 00 00 18 | 00 00 70 67 00 eb ff ff |. .0....|..pg....|
|00003060| 00 00 08 45 d4 1b 00 1a | 00 00 00 00 00 30 89 7e |...E....|.....0.~|
|00003070| 00 00 3f 9c 00 00 00 30 | f1 48 00 00 00 00 00 00 |..?....0|.H......|
|00003080| 00 00 00 00 a2 88 05 a4 | 0c 55 48 45 41 50 48 41 |........|.UHEAPHA|
|00003090| 4e 44 4c 45 52 18 00 20 | ee 40 00 23 1d c6 00 20 |NDLER.. |.@.#... |
|000030a0| a7 30 00 00 00 18 00 00 | 70 67 00 eb ff ff 00 00 |.0......|pg......|
|000030b0| 08 45 d4 1b 00 1a 00 00 | 00 00 00 30 89 7e 00 00 |.E......|...0.~..|
|000030c0| 3f 9c 00 00 00 30 f1 48 | 00 00 00 00 00 00 00 00 |?....0.H|........|
|000030d0| 00 00 a2 88 05 a4 08 55 | 44 49 41 4c 4f 47 53 44 |.......U|DIALOGSD|
|000030e0| 4c 45 52 18 00 20 ee 40 | 00 23 1d c6 00 20 a7 30 |LER.. .@|.#... .0|
|000030f0| 00 00 00 18 00 00 70 67 | 00 eb ff ff 00 00 08 45 |......pg|.......E|
|00003100| d4 1b 00 1a 00 00 00 00 | 00 30 89 7e 00 00 3f 9c |........|.0.~..?.|
|00003110| 00 00 00 30 f1 48 00 00 | 00 00 00 00 00 00 00 00 |...0.H..|........|
|00003120| a2 88 05 a2 08 55 47 4c | 4f 42 41 4c 53 44 4c 45 |.....UGL|OBALSDLE|
|00003130| 52 18 00 20 ee 40 00 23 | 1d c6 00 20 a7 30 00 00 |R.. .@.#|... .0..|
|00003140| 00 18 00 00 70 67 00 eb | ff ff 00 00 08 45 d4 1b |....pg..|.....E..|
|00003150| 00 1a 00 00 00 00 00 30 | 89 7e 00 00 3f 9c 00 00 |.......0|.~..?...|
|00003160| 00 30 f1 48 00 00 00 00 | 00 00 00 00 00 00 a2 88 |.0.H....|........|
|00003170| 05 a2 07 57 49 4e 44 4f | 57 53 53 44 4c 45 52 18 |...WINDO|WSSDLER.|
|00003180| 00 20 ee 40 00 23 1d c6 | 00 20 a7 30 00 00 00 18 |. .@.#..|. .0....|
|00003190| 00 00 70 67 00 eb ff ff | 00 00 08 45 d4 1b 00 1a |..pg....|...E....|
|000031a0| 00 00 00 00 00 30 89 7e | 00 00 3f 9c 00 00 00 30 |.....0.~|..?....0|
|000031b0| f1 48 00 00 00 00 00 00 | 00 00 00 00 a2 88 05 9f |.H......|........|
|000031c0| 04 44 45 53 4b 4f 57 53 | 53 44 4c 45 52 18 00 20 |.DESKOWS|SDLER.. |
|000031d0| ee 40 00 23 1d c6 00 20 | a7 30 00 00 00 18 00 00 |.@.#... |.0......|
|000031e0| 70 67 00 eb ff ff 00 00 | 08 45 d4 1b 00 1a 00 00 |pg......|.E......|
|000031f0| 00 00 00 30 89 7e 00 00 | 3f 9c 00 00 00 30 f1 48 |...0.~..|?....0.H|
|00003200| 00 00 00 00 00 00 00 00 | 00 00 a2 88 05 9e 08 4f |........|.......O|
|00003210| 53 45 56 45 4e 54 53 44 | 4c 45 52 18 00 20 ee 40 |SEVENTSD|LER.. .@|
|00003220| 00 23 1d c6 00 20 a7 30 | 00 00 00 18 00 00 70 67 |.#... .0|......pg|
|00003230| 00 eb ff ff 00 00 08 45 | d4 1b 00 1a 00 00 00 00 |.......E|........|
|00003240| 00 30 89 7e 00 00 3f 9c | 00 00 00 30 f1 48 00 00 |.0.~..?.|...0.H..|
|00003250| 00 00 00 00 00 00 00 00 | a2 88 05 9d 06 45 56 45 |........|.....EVE|
|00003260| 4e 54 53 54 53 44 4c 45 | 52 18 00 20 ee 40 00 23 |NTSTSDLE|R.. .@.#|
|00003270| 1d c6 00 20 a7 30 00 00 | 00 18 00 00 70 67 00 eb |... .0..|....pg..|
|00003280| ff ff 00 00 08 45 d4 1b | 00 1a 00 00 00 00 00 30 |.....E..|.......0|
|00003290| 89 7e 00 00 3f 9c 00 00 | 00 30 f1 48 00 00 00 00 |.~..?...|.0.H....|
|000032a0| 00 00 00 00 00 00 a2 88 | 05 9c 05 46 4f 4e 54 53 |........|...FONTS|
|000032b0| 53 54 53 44 4c 45 52 18 | 00 20 ee 40 00 23 1d c6 |STSDLER.|. .@.#..|
|000032c0| 00 20 a7 30 00 00 00 18 | 00 00 70 67 00 eb ff ff |. .0....|..pg....|
|000032d0| 00 00 08 45 d4 1b 00 1a | 00 00 00 00 00 30 89 7e |...E....|.....0.~|
|000032e0| 00 00 3f 9c 00 00 00 30 | f1 48 00 00 00 00 00 00 |..?....0|.H......|
|000032f0| 00 00 00 00 a2 88 05 9a | 09 54 4f 4f 4c 55 54 49 |........|.TOOLUTI|
|00003300| 4c 53 4c 45 52 18 00 20 | ee 40 00 23 1d c6 00 20 |LSLER.. |.@.#... |
|00003310| a7 30 00 00 00 18 00 00 | 70 67 00 eb ff ff 00 00 |.0......|pg......|
|00003320| 08 45 d4 1b 00 1a 00 00 | 00 00 00 30 89 7e 00 00 |.E......|...0.~..|
|00003330| 3f 9c 00 00 00 30 f1 48 | 00 00 00 00 00 00 00 00 |?....0.H|........|
|00003340| 00 00 a2 88 05 98 07 4f | 53 55 54 49 4c 53 4c 53 |.......O|SUTILSLS|
|00003350| 4c 45 52 18 00 20 ee 40 | 00 23 1d c6 00 20 a7 30 |LER.. .@|.#... .0|
|00003360| 00 00 00 18 00 00 70 67 | 00 eb ff ff 00 00 08 45 |......pg|.......E|
|00003370| d4 1b 00 1a 00 00 00 00 | 00 30 89 7e 00 00 3f 9c |........|.0.~..?.|
|00003380| 00 00 00 30 f1 48 00 00 | 00 00 00 00 00 00 00 00 |...0.H..|........|
|00003390| a2 88 05 97 09 52 45 53 | 4f 55 52 43 45 53 4c 45 |.....RES|OURCESLE|
|000033a0| 52 18 00 20 ee 40 00 23 | 1d c6 00 20 a7 30 00 00 |R.. .@.#|... .0..|
|000033b0| 00 18 00 00 70 67 00 eb | ff ff 00 00 08 45 d4 1b |....pg..|.....E..|
|000033c0| 00 1a 00 00 00 00 00 30 | 89 7e 00 00 3f 9c 00 00 |.......0|.~..?...|
|000033d0| 00 30 f1 48 00 00 00 00 | 00 00 00 00 00 00 a2 82 |.0.H....|........|
|000033e0| df c7 07 53 45 47 4c 4f | 41 44 45 53 4c 45 52 18 |...SEGLO|ADESLER.|
|000033f0| 00 20 ee 40 00 23 1d c6 | 00 20 a7 30 00 00 00 18 |. .@.#..|. .0....|
|00003400| 00 00 70 67 00 eb ff ff | 00 00 08 45 d4 1b 00 1a |..pg....|...E....|
|00003410| 00 00 00 00 00 30 89 7e | 00 00 3f 9c 00 00 00 30 |.....0.~|..?....0|
|00003420| f1 48 00 00 00 00 00 00 | 00 00 00 01 a2 88 05 91 |.H......|........|
|00003430| 07 44 49 41 4c 4f 47 53 | 45 53 4c 45 52 18 00 20 |.DIALOGS|ESLER.. |
|00003440| ee 40 00 23 1d c6 00 20 | a7 30 00 00 00 18 00 00 |.@.#... |.0......|
|00003450| 70 67 00 eb ff ff 00 00 | 08 45 d4 1b 00 1a 00 00 |pg......|.E......|
|00003460| 00 00 00 30 89 7e 00 00 | 3f 9c 00 00 00 30 f1 48 |...0.~..|?....0.H|
|00003470| 00 00 00 00 00 00 00 00 | 00 02 a2 88 05 8c 05 4d |........|.......M|
|00003480| 45 4e 55 53 47 53 45 53 | 4c 45 52 18 00 20 ee 40 |ENUSGSES|LER.. .@|
|00003490| 00 23 1d c6 00 20 a7 30 | 00 00 00 18 00 00 70 67 |.#... .0|......pg|
|000034a0| 00 eb ff ff 00 00 08 45 | d4 1b 00 1a 00 00 00 00 |.......E|........|
|000034b0| 00 30 89 7e 00 00 3f 9c | 00 00 00 30 f1 48 00 00 |.0.~..?.|...0.H..|
|000034c0| 00 00 00 00 00 00 00 00 | a2 88 05 0d 06 4d 45 4d |........|.....MEM|
|000034d0| 4f 52 59 53 45 53 4c 45 | 52 18 00 20 ee 40 00 23 |ORYSESLE|R.. .@.#|
|000034e0| 1d c6 00 20 a7 30 00 00 | 00 18 00 00 70 67 00 eb |... .0..|....pg..|
|000034f0| ff ff 00 00 08 45 d4 1b | 00 1a 00 00 00 00 00 30 |.....E..|.......0|
|00003500| 89 7e 00 00 3f 9c 00 00 | 00 30 f1 48 00 00 00 00 |.~..?...|.0.H....|
|00003510| 00 00 00 00 00 00 a2 82 | df 94 05 54 59 50 45 53 |........|...TYPES|
|00003520| 59 53 45 53 4c 45 52 18 | 00 20 ee 40 00 23 1d c6 |YSESLER.|. .@.#..|
|00003530| 00 20 a7 30 00 00 00 18 | 00 00 70 67 00 eb ff ff |. .0....|..pg....|
|00003540| 00 00 08 45 d4 1b 00 1a | 00 00 00 00 00 30 89 7e |...E....|.....0.~|
|00003550| 00 00 3f 9c 00 00 00 30 | f1 48 00 00 01 00 00 00 |..?....0|.H......|
|00003560| 09 da 00 00 08 da 00 00 | 00 91 00 1f 9d a8 07 b8 |........|........|
|00003570| 00 00 00 1c 00 6a 00 01 | 75 6e 69 74 00 03 00 12 |.....j..|unit....|
|00003580| 4d 50 53 52 00 00 00 42 | 00 03 00 00 00 00 00 4c |MPSR...B|.......L|
|00003590| 00 00 00 00 00 02 00 0a | 00 00 02 0a 00 00 00 00 |........|........|
|000035a0| 00 06 00 13 00 00 02 38 | 00 00 00 00 00 00 00 20 |.......8|....... |
|000035b0| 00 00 03 3c 00 00 00 00 | 03 ed ff ff 00 00 00 00 |...<....|........|
|000035c0| 00 00 00 00 09 53 79 6d | 62 54 61 62 6c 65 08 50 |.....Sym|bTable.P|
|000035d0| 61 63 6b 53 79 6d 73 0c | 49 6e 63 6c 75 64 65 46 |ackSyms.|IncludeF|
|000035e0| 69 6c 65 73 06 48 65 61 | 64 65 72 00 00 00 00 00 |iles.Hea|der.....|
|000035f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
